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sh saa samen 
PRODUCT CODE: AC-B022B-MC 
DIAG. CODE MAINDEC=11=CRLPB-B 
PRODUCT NAME: CRLPBBO LPA/AA11-K TEST 
DATE: DEC 1980 
MAINTAINER: DIAGNOSTIC GROUP 


COPYRIGHT (C) 1976, 1977.1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE 
COMPUTER, SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE 
COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT 
BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR 
USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. 


TITLE TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
ee Ang BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE IN EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 
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SEQ 0001 


ABSTRACT 


THIS DIAGNOSTIC EXERCISES THE ‘‘AA11=K"’ ANALOG CIRCUITRY. THE PROGRAM 
WHEN STARTED WILL TYPE OUT THE PROGRAM TITLE. 

A MESSAGE IS THEN PRINTED GIVING THE TWO LETTER DESIGNATOR 

TO BE TYPED TO RUN ANY ONE OF THE FIVE (5) SEPERATE TESTS OF WHICH 
THIS PROGRAM IS COMPRISED. THE PROGRAM THEN TYPES A ‘CR .*° AND 

THEN WAITS IN A KEYBOARD MONITOR MODE FOR TWO LETTER'S TO BE TYPED. 
ALTHOUGH THESE TESTS MAY BE RUN IN ANY ORDER IT IS IMPERATIVE 


THAT TEST ‘‘AL'’ IS RUN FIRST AND VERIFY THAT THE AA11“K IS FULLY OPERATIONAL. 


THE PROGRAM IS SET UP TO GIVE THE OPERATOR AS MUCH CONTROL 

OVER THE PROGRAM AS POSSIBLE VIA THE TELETYPE.TYPING A ‘*C° 
(OBTAINED VIA TYPING THE ‘CNTR* AND ‘C* KEYS SIMULTANEOUSLY) 

WHILE RUNNING ANY TESi WILL ENABLE THE PROGRAM TO RETURN TO 

THE KEYBOARD MONITOR AND AWAIT A NEW LETTER DESIGNATOR TO BE 
TYPED. TYPING A ‘*G' WHILE RUNNING WILL ENABLE THE SOFTWARE SWITCH 
REGISTER VALUE TO BE CHANGED. 


THIS PROGRAM IS “A MODIFIED VERSION OF ‘MD-11=DZAAC-B'’. IT WAS 
MODIFIED TO ENABLE THE OPERATOR TO CHECK OUT THE AA11-K OPTION 
WHEN IT IS ON THE LPA11KX I/0 BUS. NO RECABLING IS NEEDED. 
SOME TEST DONE IN THE ORIGINAL DIAGNOSTIC SUCH AS ARBITRATION 
TEST, WERE DELETED AS THEY COULD NOT BE CHECKED. IF THIS 
DIAGNOSTIC DOESN'T FIND A SUSPECTED PROBLEM, YOU MAY HAVE TC 
RUN ‘MD-11-DZAAC-B'’. YOU SHOULD RUN 'MD-11-CRLPA"’ BEFORE 
RUNNING THIS DIAGNOSTIC. PLEASE READ SECTION 10. 


REQUIREMENTS (EQUIPMENT) 


A. PDP-1° COMPUTER WITH 16K OF MEMORY AND A CONSOLE 1/0 TERMINAL 
B. AA11-K QUAD OPTION MODULE INSTALLED 
C. <OPTIONAL> VR14 OR STORAGE SCOPE 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY TAPES. 


STARTING PROCEDURE 


THE PROGRAM STARTING ADDRESS IS ‘200°. 
THE RESTART ADDRESS IS ‘204°. 


CONSOLE SWITCH SETTINGS 


THIS PROGRAM HAS BEEN MODIFIED TO RUN WITH OR 

WITHOUT A HARDWARE SWITCH REGISTER. 

A. ALL SWITCHES SHOULD BE DOWN (0) WHEN THE PROGRAM IS STARTED. 

B. REFER TO THE INDIVIDUAL TES DESCRIPTIONS FOR APPLICABLE 
CONSOLE SWITCH SETTINGS 

C. ALL SWITCHES SET TO A i WILL SELECT SOFTWARE SWITCH CONTROL. 


SEQ 0002 


ERRORS 


ALL ERRORS ARE ACCOMPANIED WITH A ENGLISH DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF THE 
ERROR CAN BE OBTAINED FROM THE COMMENT AT THE ERROR PC OR THE TEST ITSELF. 


TEST PROCEDURE 


A. THIS TEST IS DESIGNED TO VERIFY THE DATA PATH THAT IS ADDRESSABLE 
FROM THE CPU. THIS ALSO INCLUDES ALL CONTROL, INTERRUPT AND 
INITILIZE SIGNALS. THE LOGIC TEST ALSO INCLUDES PROVISIONS 
FOR TESTING MULTIPLE AA11-K°S. 


B. STARTING SEQUENCE 


1. TYPE ‘AL* TO RUN THE AUTO LOGIC TEST. 
2. THE PROGRAM WILL THEN EXECUTE A LOGIC TEST ON ALL AVAILABLE UNITS 


C. CONTROL SWITCHES 


1. TYPING “C WILL nah THE PROGRAM TO EXIT AND RETURN 
TO THE KEYBOARD MONITOR. 

2. TYPING “G WHEN SOFTWARE SWITCH REGISTER IS ENABLED WiLL 
REPORT LAST VALUE AND WAIT FOR NEW VALUE. 


SWITCH OCTAL FUNCTION 
SW15=1 100000 HALT ON ERROR 
SWwi4=1 040000 _ LOOP ON CURRENT TEST 
SW13=1 020000 INHIBIT ERROR TYPEOUT 
SW12=1 010000 STORAGE SCOPE CONNECTED 
SW10=1 002000 EXTERNAL DELAY SIGNAL CONNECTED 
SWO9=1 001000 TWO"S COMPLIMENT MODE 
Sw08=1 0004Xxx LOOP ON TEST IN SWR 7:9 
D ERRORS 
REF. TO 6 
E RESTRICTIONS 


IF A STORAGE SCOPE IS CONNECTED, POWER MUST BE APPLIED {0 IT. 


SEQ 0003 


F. EXECUTION TIME 
wocccceccecece SEQ 0004 


IT TAKES APPROXIMATELY 25 SECONDS PER PASS. 


AUTO DISPLAY TEST 


A. THIS TEST IS DESIGNED TO AID IN THE ADJUSTING AND ALIGNMENT 
OF THE VR14 OR STORAGE SCOPE SCOPE ON THE AA11-K DISPLAY CONTROL. 


B. TYPE "AD' TO RUN THE AUTO VISUAL DISPLAY TEST. 
THE PROGRAM WILL THEN EXECUTE THE VISUAL DISPLAY TEST. 


C. CONTROL SWITCHES 


1. TYPING “C AT ANY TIME WILL ENABLE THE PROGRAM TO EXIT 
AND RETURN TO THE MONITOR. 
2. TYPING “G WHEN SOFTWARE SWITCH REGISTER IS ENABLED WILL 
ENABLE THE PROGRAM TO CHANGE THE SOFTWARE SWITCH REGISTER VALUE. 


CONSOLE SWITCHES FUNCTION 

CONSOLE SW10=1 SELECTS EXTERNAL DELAY MODE 

CONSOLE SWO9=1 SELECTS TWO'S COMPLEMENT MODE 
CONSOLE SWO8=0 CYCLE THRU ALL FOUR DISPLAY PATTERNS 
CONSOLE SWO8=1 SELECT PATTERNS IN SW 00-2 

CONSOLE SW03=0 SELECT DAC 0 AND DAC 1 

CONSOLE SW03=1 SELECT DAC 2 AND DAC 3 


; CONSOLE SwW00-02=0 DISPLAY A HORIZONTAL LINE 
CONSOLE SW00-02=1 DISPLAY A VERTICAL LINE 
CONSOLE SW00-02=2 DISPLAY A SQUARE 
CONSOLE SW00-02=3 DISPLAY AN ‘'x"’ 


D. ERRORS 


THE ONLY ERRORS IN THIS TEST ARE DETECTED VISUALLY. 
—E. RESTRICTIONS 


eee oe se Sm & -— om 


IF VR14, CHANNEL SWITCH MUST BE SET TO ‘1 & 2° POSITION. 
IF STORAGE SCOPE, POWER MUST BE APPLIED. 

THE “‘AUTO=CALIBRATION (AC)'’ MUST HAVE BEEN RUN PRIOR TO 
RUNNING THIS SECTION WHEN ON’ THE ‘‘AUTO HARDWARE TESTER’. 


F. EXECUTION TIME 


IT TAKES APPROXIMATELY 1 MINUTE TO COMPLETE THIS TEST 
BEFORE IT REPEATS. 


—— 


SEQ 0005 
MANUAL LOGIC LOOP 


A. - THIS LOOP IS PROVIDED TO ENABLE THE OPERATOR A SIMPLE PROGRAM 
LOOP TO AID IN REPAIR OF THE AA11-K. SWITCH REGISTER BITS 15:13 
SELECT THE REGISTER TO BE LOADED AND BITS 12:00 CONTAINS THE DATA TO BE LOADED. 


B. STARTING SEQUENCE 


1. TYPE ‘ML* TO RUN THE MANUAL LOGIC LOOP. 
2. THE PROGRAM WILL NOW LOOP AND LOAD THE VALUE OF THE 
SWITCH REGISTER BITS 12:00 INTO THE SELECTED AA11-K REGISTER. 


C. CONTROL SWITCHES 


$wW15:13 REGISTER SELECTED 
000 DAC #0 
001 DAC #1 
010 DAC #2 
011 DAC #3 
1XXx STATUS REGISTER 
D. ERRORS 


NO PROVISIONS ARE MADE FOR LOGIC ERRORS. 
E. RESTRICTIONS 


NONE 


THIS IS A NON-ENDING PROGRAM LOOP THAT CAN BE EXITED BY TYPING “C. 


7.5 


7.6 


A 


MANUAL Ji ski AY LOOP SEQ 0006 


A. THIS LOOP IS PROVIDED FOR THE OPERATOR TO VERIFY OPERATION 
OF THE D/A CONVERTER AND MULTIPLEXER. 


B. STARTING SEQUENCE 


1. TYPE "MD* TO RUN MANUAL DISPLAY LOOP 
2. THE PROGRAM WILL NOW LOAD A ‘‘RAMP PATTERN’ INTO EACH D/A CONVERTER. 


C. CONTROL SWITCHES 


1. TYPING “C WILL RETURN CONTROL TO THE KEYBOARD MONITOR. 
2. SW10=1 WILL SELECT EXTERNAL DELAY MODE. 


D. ERRORS 


NO PROVISIONS ARE MADE FOR LOGIC ERRORS. 


MANUAL CALIBRATION LOOP 


THIS LOOP IS PROVIDED TO ENABLE THE OPERATOR TO ADJUST THE D/A CONVERTER. 
B. STARTING SEQUENCE 


1. TYPE *MC* TO RUN THE MANUAL CALIBRATION LOOP. 
2. THE PROGRAM WILL NOW LOAD THE CONTENTS OF THE SWITCH REGISIE 
INTO EACH D/A REGISTER AND AFTER A DELAY CLEAR THE D/A REGISTER. 


C. CONTROL SWITCHES 


1. TYPING *C WILL EXIT THE LOOP AND RETURN TO THE KEYBOARD MONITOR. 
2. TYPING “G WHEN SOFTWARE eas: REGISTER IS ENABLED TO CHANGE 

THE SWITCH REGISTER VALUE 
3. SWITCH REGISTER BITS 11:0 ARE LOADED IN TO ALL DAC'S. 


D. ERRORS 


NO PROVISIONS ARE MADE FOR LOGIC ERRORS. 


AUTO DISPLAY TEST PATTERN DESCRIPTIONS 


DISPLAY HORIZONTAL LINE 


A HORIZONTAL LINE IS DISPLAYED ON THE SCOPE BY INITIALLY 
SETTING THE X AND Y DAC*S TO ZERO AND THEN INCREMENTING 
THE X VALUE WHILE HOLDING THE Y VALUE CONSTANT. 


DISPLAY VERTICAL LINE 


A VERTICAL LINE IS DISPLAYED ON THE SCOPE IN THE SAME MANNER 
AS FOR A HORIZONTAL LINE EXCEPT NOW THE Y VALUE 
1S INCREMENTED WHILE HOLDING THE X VALUE CONSTANT. 


DISPLAY SQUARE 


A SQUARE IS DISPLAYED BY INITIALLY SETTING THE X AND Y VALUES 
TO NEGATIVE FULL SCALE, THEN X IS INCREMENTED TO POSITIVE 
SCALE (BOTTOM LINE) THEN Y IS INCREMENTED TO POSITIVE FULL 
SCALE (RIGHT LINE) THEN X IS DECREMENTED TO NEGATIVE FULL 
SCALE (TOP LINE) AND FINALLY Y IS DECREMENTED TO NEGATIVE 
FULL SCALE (LEFT LINE). MODE 01 CINTENSIFY ON LOADING X) 

AND MODE 10 (INTENSIFY ON LOADING Y) ARE USED. 


DISPLAY X 


AN K IS DISPLAYED BY INITIALLY SETTING THE X AND Y VALUES 

TO NEGATIVE FULL SCALE AND THEN INCREMENTING BOTH TO POSITIVE 
FULL SCALE ‘LOWER LEFT TO UPPER RIGHT DIAGONAL) THEN X IS RESET 
TO NEGAT'VE rULL SCALE, Y REMAINS AT POSITIVE FULL SCALE AND 
THN % [5 INCREMENTED WHILE Y IS DECREMENTED UNTIL BOTH REACH 
FULL utALE AGAIN (UPPER LEFT TO LOWER RIGHT DIAGONAL). MODE 

O01 (INTENSIFY ON LOADING X) IS USED. 


SEQ 0007 


SEQ 0008 
MISCELLANEOUS 


AA11-K BUS & VECTOR ADDRESS MODIFICATION 


MODIFY LOCATION ‘$BASE* IF BASE ADDRESS IS NOT 170416. 
MODIFY LOCATION ‘SVECT1° IF THE VECTOR AND PRIORITY IS NOT 100360. 


*NOTE if EITHER VALUE IS CHANGED, THE PROGRAM MUST BE RESTARTED AT 200. 
XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP. 
THIS DIAGNOSTIC HAS THE ‘‘APT’’ HOOKS BUT HAS NOT BEEN TESTED. 


POWER FAIL 


A POWER FAIL WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED. . 


MULTIPLE AA11-K INTERFACE TESTING 
THE PROGRAM WILL ‘‘AUTO=SIZE*’ THE NUMBER OF AA11-K'S. THE PROGRAM 
WILL REPORT THE NUMBER TO THE OPERATOR WHEN THE ‘AL’ TEST IS 
SELECTED THE FIRST TIME. IF THE OPERATOR WISHES TO INHIBIT 
““AUTO=SIZE** BIT 15 OF LOCATION ‘‘SENV’’ MUST BE SET. 
RESTRICTION 
POWER MUST BE APPLIED TO A STORAGE SCOPE IF CONNECTED. 
EXECUTION TIME 
1. EXECUTION TIME OF THE AUTO LOGIC TEST IS: 
25 SECONDS. 

EXECUTION TIME OF THE AUTO DISPLAY TEST IS: 

60 SECONDS 
EXECUTION TIME OF THE MANUAL LOGIC LOOP IS: 

OPERATOR DEPENDANT 
EXECUTION TIME OF THE MANUAL DISPLAY LOOP IS: 

OPERATOR DEPENDANT 


EXECUTION TIME OF THE MANUAL CALIBRATION LOOP IS: 
OPERATOR DEPENDANT 
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10. 
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USER LINK TO 1/0 DEVICE 


A SPECIAL USER LINK HAS BEEN PROVIDED IN ORDER FOR THE 
OPERATOR TO EXAMINE OR MODIFY LOCATIONS ON THE LPA11-Kx 
1/0 BUS. (NOTE: THIS CANNOT BE DONE DIRECTLY.) 


PROCEDURE : 
1) START THE PROCESSOR AT LOCATION $UTK: (214) 
2) THE DIALOG TO EXAMINE A LOCATION IS AS FOLLOWS: 


E OR D 
DEVICE ADDRS= “OCTAL ADDRS"’ 
XK XKKK 


WHERE XXXXXX IS THE CONTENTS OF THE SPECIFIED LOC. 
3) THE DIALOG TO MODIFY A LOCATION IS AS FOLLOWS: 


E OR D "D" 
DATA= “DATA TO BE DEPOSITED’ 


4) THE PROGRAM WILL STAY IN THIS LOOP UNTIL THE OPERATOR 
a4 | anon: AT THIS TIME THE PROCESSOR SHOULD BE 
LTED. 


NOTE: THE OPERATORS RESPONSE IS ENCLOSE IN QUOTES. 


LPA11 (SYSTEM) DIAGNOSTIC SUMMARY 


DIAGNOSTICS FOR THE LPA11 ARE WRITTEN AT THREE LEVELS: (1) 
TOTAL PDP-11 SYSTEM, (2) LPA11 SYSTEM; AND, (3) LPA11 OPTIONS. 


LEVEL 1, IS DESIGNED TO ISOLATE A FAILURE TO THE LPA11 SYSTEM. 
ALL OPTIONS ON THE PDP-11 ARE EXERCISED. 


LEVEL 2 DIAGNOSTICS ISOLATE A FAILURE TO THE INDIVIDUAL OPTION 
WITHIN THE LPA11. THE LEVEL 2 DIAGNOSTIC IS MD-11-CRLPA. WHEN 

THE USER RUNS CRLPA HE CAN GENERALLY TELL WHICH OPTION DIAGNOSTIC 
(LEVEL 3) TO RUN NEXT. 8254 AND M8200-YC ERRORS MAY ‘'LOOK"’ 
ALIKE AND CRLPA MAY NOT BE ABLE TO DISTINGUISH BETWEEN THEM. 
ARBITRATION ERRORS WILL NOT BE DETECTED BY THIS DIAGNOSTIC. 


LEVEL THREE DIAGNOSTICS AID IN DETERMINING IF THE ERROR WAS IN 
FACT ON THE OPTION THE CRLPA SPECIFIED. THE USER MAY ‘“‘LOOP"’ ON 
THE ERROR. WITHIN LEVEL THREE, THERE ARE TWO GROUPS Of 
DIAGNOSTICS. THE FIRST GROUP REQUIRES NO ‘EXTRA’ WORK BY THE 
USER IN ORDER TO RUN. GROUP ‘‘A’' DIAGNOSTICS DO NOT CHECK 
ARBITRATION, AND REQUIRE EXTRA TIME FOR EXECUTION. THE SECOND 
GROUP (GROUP *B’') REQUIRES THAT THE USER RECONFIGURE THE PDP-11 
tt ei RECONFIGURATION INVOLVES CABLING THE UNIBUS TO THE 
LPA* : 


THE DIAGNOSTIC FOR THE M8254 FALLS INTO THE GROUP ‘’B’’ CATAGORY. 


SEQ 0009 


THE LPA11-KX DIAGNOSTIC KIT WILL INCLUDE: 


OPTION 


LPA11-KX 
M8254 
AA11-K 


AR11 


DR11-K 


KW11-K 


LPS11 


AD11-K 


M8200-YC 


LEVEL 2 
i: 
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MD-11-CRLPA 
MD-11-CRLPN 
MD-11-CRLPB 
MD-11-DZAAC 
MD-11-CRLPC 
MD-11-CRLPD 
MD-11-CRLPE 
MD-11-DZARA 
MD-11-DZARB 
MD-11-DZARC 
MD-11-CRLPF 
MD-11-DZDRG 
MD-11-CRLPG 
MD-11-DZKWK 
MD-11-CRLPH 
MD-11-CRLP] 
MD-11-CRLPJ 
MD-11-DZLPC 
MD-11~DZLPD 
MD-11-DZLPI 
MD-11-CRLPK 
MD-11-DZADL 
MD-11-CRLPL 
MD-11-CRLPM 


DIAG. TITLE 


LPA11=K SYSTEM EXER. 


M8254 (IPBM) DIAG. 
LPA/AA11=-K DIAG. 
AA11-K DIAG. 
LPA/AR11 DIAG. #1 
LPA/AR11 DIAG. #2 
LPA/AR11 DIAG. #3 
AR11 DIAG. #1 

AR11 DIAG. #2 

AR11 DIAG. #3 
LPA/DR11-K DIAG. 
DR11-K DIAG. 
LPA/KW11-K DIAG. 
KW11-K DIAG. 
LPA/LPS11 DIAG. #1 
LPA/LPS11 DIAG. #2 
LPA/LPS11 DIAG. #3 
LPS11 DIAG. #1 
LPS11 DIAG. #2 
LPS11 DIAG. #3 
LPA/AD11-K DIAG. 
AD11-K DIAG. 


LPA/DMC-11 DIAG. TST | 
LPA/DMC-11 DIAG. TST Il 


SEQ 0010 
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PRODUCT CODE: MAINDEC=11-DZAAC=B 

PRODUCT NAME : AA11-K DIAGNOSTIC TEST 

DATE : DECEMBER 1976 

MAINTAINER : DIANOSTIC GROUP 
penenueeneneenteendeenichseqnateeraeeeninabinnet 
PRODUCT CODE : MAINDEC=11-DRLPB=A 

PRODUCT NAME : LPA/AA11=K DIAGNOSTIC TEST 
DATE : JANUARY 1978 


MAINTAINER: DIAGNOSTIC GROUP 


REASON FOR DEVELOPMENT: 


1) TO ENABLE THE OPERATOR TO CHECK OUT THE AA11-K OPTION 
WHEN IT IS ON THE LPA11-KX 1/0 BUS. 


CHANGES MADE: 


1) TOOK OUT CERTAIN TESTS FROM ORIGINAL DIAGNOSTIC (I.E. 
INTERRUPTS,TIME DEPENDENT CODE). 


2) REPLACED DIRECT LINKS TO DEVICE WITH MACRO CALLS TO THE 
KMC-11 MICRO CODE. KMC-11 MICRO CODE (FILE:DRLPX2) HANDLES 
DIRECT COMMUNICATIONS WITH THE DEVICE. 


FILE: 


FILE: 


FILE: 


DRLPA.MAC 

CONTAINS MACRO LINKS BETWEEN PDP-11 CODE AND KMC~-11 
MICRO CODE. FILE: DRLPX2 NEEDS TO BE ASSEMBLED WITH 
ORLPB (SEE .CTL FILE). 


DRLPK2 
MICRO CODE FILE THAT GETS LOADED INTO THE KMC-11 
VIA ROUTINES IN DRLPA.MAC. 


DRLPX2.P11 IS ASSEMBLED WITH MACY11 (ONLY) AS ANY OTHER 
.P11 FILE. THE RESULTS OF ITS ASSEMBLY IS A .OBJ 

MODULE AS WAS THE RESULT OF THE ASSEMBLY OF THE 
DIAGNOSTIC .P11 FILE. BOTH .OBJ FILES GET LINKED 

WITH LNKX11 (ONLY). 


DRLPB.C 
THIS FILE ee Nee Rs pe, OF ASSEMBLES AND LINKS. 
IT IS IN TOPS-20 F 


eeceeeaeecereeeeeetereeeeeeteteeeetetereeeeeeeeeeere 


VERSION ‘B’’ WAS CREATED BECAUSE OF A MICRO-CODE CHANGE 
TO THE LPA-11 (DMA-11 V5). 


SEQ 0011 


LNKX11 = VO23 24-0CT-80 9:33 
#CRLPBB.BIN/B:42000,CRLPBB.MAP=CRLPBB,CRLPK2/E 


LOAD MAP 
‘IDENT: 4.01 


| 

TRANSFER ADDRESS: 000001 

LOW LIMIT: 042000 

H1GH LIMIT: 046000 
eeeteeeeere 

MODULE MAINDE 

wet oe A setts: ESS SIZE 


000000 000000 
"DRLPK2 0420 
< 042000 000000 


EE a 
MODULE DRLPXK2 
at ae ENTRY ADDRESS SlZt 
> 042000 000000 
CABCODE> 042000 004000 


RUN-TIME: 0 SECONDS 
ev. CORE USED 


| 
| 
| 
| 


SEQ 0012 


—_ —-<— TOO EEE LL TL TA 
_ — Se _sssslesns>->ne>-smas-»>-nnen>s>sstenenestst — -_ 


N 1 
MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC MACY11 306(1063) 24-OCT-80 09:31 


CRLPBB.P11 26-SEP-80 13:52 TABLE OF CONTENTS SEQ 0013 
1177 BASIC DEFINITIONS 
1183 OPERATIONAL SWITCH SETTINGS 
1185 TRAP CATCHER 
(1) STARTING ADDRESS(ES) 
1191 ACT11 HOOKS 
1193 APT PARAMETER BLOCK 
1194 COMMON TAGS 
(2) APT MAILBOX-E TABLE 
(1) ERROR POINTER TABLE 
1272 INITIALIZE THE COMMON TAGS 
1277 SUBROUTINE TO LOAD A TRAP CATCHER 
1286 LOAD DEVICE ADDRESSES LOCATIONS 
1307 INITIAL HEADER TYPEOUT AND WAIT FOR OPERATOR 
$2 DETERMINE THE NUMBER OF AA11-K ON THIS SYSTEM 
1405 TEST @ DESCRIPTION 
1406  wreree 3 Sseeeeeceeee 
1405 
1407 T1 TEST THAT THE AA11-K RESPONDS TO THE CPU 
1424 T2 TEST THAT THE DACO REGISTER CAN BE CLEARED 
1432 T3 TEST THAT THE DACO REGISTER CAN BE LOADED WITH #7777 
1440 T4 TEST THAT THE DACO REGISTER CAN HOLD A FLOATING 1 PATTERN 
1449 T5 TEST THAT THE DAC #1 REGISTER CAN BE CLEARED 
1457 T6 TEST THAT THE Y REGISTER CAN BE LOADED WITH #7777 
1465 17 TEST THAT THE Y REGISTER CAN HOLD A FLOATING 1 PATTERN 
1475 T10 TEST THAT THE DAC #2 REGISTER CAN BE CLEARED 
1483 T11 TEST THAT THE DAC #2 REGISTER CAN BE LOADED WITH #7777 
1491 T12 TEST THAT THE DAC #2 REGISTER CAN HOLD A FLOATING 1 PATTERN 
1502 113 TEST THAT THE DAC #5 REGISTER CAN BE CLEARED 
1510 T14 TEST THAT THE DAC #3 REGISTER CAN BE LOADED WITH #7777 
1518 T15 TEST THAT THE DAC #3 REGISTER CAN HOLD A FLOATING 1 PATTERN 
1527 T16 TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 
1501 117 TEST THAT RESET SETS READY BIT 
1569 T20 TEST THAT FAST INTENSIFY CAN BE SET AND CLEARED 
1585 T21 TEST THAT MODE BIT 2 CAN BE SET AND CLEARED 
1602 | T22 TEST THAT MODE BIT 3 CAN BE SET 
1619 T23 TEST THAT EXT. DELAY (BIT 4) CAN BE SET AND CLEARED 
1634 T24 TEST THAT INTERRUPT ENABLE (BIT 6) CAN BE SET 
1643 725 TEST THAT CHANNEL (BIT 9) CAN BE SET 
1652 726 TEST THAT STORE (BIT 10) CAN BE SET 
1661 127 TEST THAT WRITE THRU (BIT 11) CAN BE SET 
1670 130 TEST THAT INTENSIFY BIT SETS THAT THE READY BIT 
1482 31 TEST THAT MODE 1 (INTENSIFY ON DACO) SETS THE READY FLAG 
1706 132 TEST THAT MODE 2 (INTENSIFY ON DAC1) SETS THE READY FLAG 
1727 135 TEST WHEN ERASE IS SET, READY B1T CLEARS AND SET AFTER DELAY (SWi2e=1) 
1746 134 TEST THAT RESET CLE MODE, EXT. DELAY AND FAST INTENISIFY BITS 
1755 135 TEST THAT RESET CLEARS INTERRUPT ENABLE, CHANNEL, STORE, WRITE THRU 
1764 136 TEST THAT RESET i iaat DACO REGISTER ($w09=0) 
1774 137 TEST THAT RESET CLEARS DAC] REGISTER ($W09=0) 
1784 140 TEST THAT RESET CLEARS DAC #2 REGISTER (SWO9=0) 
1794 141 TEST THAT RESET CLEARS DAC #35 REGISTER (SWO9=0) 
1817 142 TEST THAT RESET SET DACO TO 4000 (SwO9=1) 
1818 143 TEST THAT RESET SET DAC! TO 4000 ($wO9=1) 
1819 144 TEST THAT RESET SET DAC2 TO 4000 Se bf 
1820 145 TES’ THAT RESET SET DACS TO 4000 (SwO9=1) 


1821 146 TEST THAT EXTERNAL DELAY DOES NOT SET DISPLAY READY $10=0 


| B 2 
MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC MACY11 30G6(1063) 24-0CT-80 09:31 


CRLPBB.P1% 26-SEP-80 13:52 TABLE OF CONTENTS 


— A 


147 TEST THE EXTERNAL DELAY DOES SET DISPLAY READY SwiQ0=1 
150 DETERMINE IF MORE AA11-K'S REMAIN TO BE TESTED 
END OF PASS ROUTINE 


VISUAL TEST PATTERNS 


DISPLAY HORIZONTAL LINE 

DISPLAY A VERTICAL LINE 
PINCUSHION TEST (DISPLAY SQUARE) 
PLOT AN X 

MANUAL DISPLAY ROUTINE 

MANUAL LOGIC TEST 

MANUAL DAC CALIBRATION 

DYNAMIC DAC CALIBRATION 


MISC. SUB-ROUTINES, ASCII MESSAGES AND SOFTWARE HANDLERS 


SUBROUTINE TO ERASE STORAGE SCOPE SCREEN 
SUBROUTINE TO DRAW A HORIZONTAL LINE 
TIMER ROUTINE FOR VISUAL TEST PATTERNS 
ASCII MESSAGES 

CONVERT BINARY TO DECIMA! AND TYPE ROUTINE 
SCOPE HANDLER ROUTINE 

ERROR HANDLER ROUTINE 

ERROR MESSAGE TYPEOQUT ROUTINE 

POWER DOWN AND UP ROUTINES 

BINARY TO OCTAL (ASCII) AND TYPE 

TYPE ROUTINE 

TTY INPUT ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 

APT COMMUNICATIONS ROUTINE 

TRAP DECODER 

TRAP TABLE 


SEQ 0014 
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CRLPAB .MAC 26-SEP-80 13:48 SEQ 0015 


REM C 
CRLPAB.MAC 
WELCOME, THIS DIAGNOSTIC IS ONE IN A SERIES OF DIAGNOSTIC 
DESIGNED IN ORDER TO AID YOU IN TESTING THE LPA=i1XxX OPTION. 
I HOPE THAT YOU HAVE READ THE DOCUMENTATION SECTION OF THIS 
DIAGNOSTIC. IF YOU HAVE,YOU KNOW ABOUT ALL OF THE DIAGNOSTICS 
THAT ARE AVAILIBLE FOR TESTING THE LPA SYSTEM. 


GOOD LUCK ° 
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MMAST .MAC 
CRLPAB .MAC 


26-SEP-80 13:48 


MACY11 30G6(1063) 24-OCT-80 09:31 


~TITLE MMAST.MAC 
~IDENT /4,.91/ 


LPA11=-K MICRO CODE 
CHARLES A. SAMUELSON 
NOVEMBER, 1977 
~TITLE DMAST.MAC 
~IDENT /4.01/ 
LPA11-K MICRO CODE 


CHARLES A. SAMUELSON 
NOVEMBER, 1977 
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SEQ 0016 


DMAST .MAC 
CRLPBB.P11 
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»REM 


THIS IS A-LIST OF TESTS DELETED FROM THIS DIAGNOSTIC. 


THESE TESTS COULD NOT BE DONE THROUGH THE LPA-11 


TEST THAT THE LOW BYTE OF STATUS REG CAN BE CLEARED 
TEST THAT THE HIGH BYTE OF STATUS REG CAN BE CLEARED 
TEST THAT DISPLAY DOES INTR. AT LEVEL INDICATED 

TEST THAT DISPLAY DOES NOT INTR. AT LEVEL INDICATED 
TEST THE SCOPE SETTLING TIME 


i 
~TITLE MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC 
;*COPYRIGHT (C) 1980 
;*DIGITAL EQUIPMENT CORP. 
>*MAYNARD, MASS. 01754 
-* 
: SPR BY EDWARD C. BADGER 


S eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
g SPACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


* SBTTL BASIC DEFINITIONS 
Cia. OF THE STACK POINTER *** 1100 #*¢ 


STACK= 

-EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROP CALL 
.EQUIV. IOT,SCOPE >:BASIC DEFINITION OF SCOPE CALL 
:*MISCELLANEOUS DEFINITIONS 

HT= 11 -:CODE FOR HORIZONTAL TAB 

LF= 12 -:CODE FOR LINE FEED 

CR= 15 >: CODE FOR CARRIAGE RETURN 

CRLF= 200 >: CODE FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 ::PROCESSOR STATUS WORD 

-EQUIV PS,PSW 

STKLMT= 177774 »:STACK LIMIT REGISTER 

PIRQ= 177772 :=PROGRAM INTERRUPT REQUEST REGISTER 

DSWR= 177570 *:HARDWARE SWITCH REGISTER 

DDISP= 177570 ::HARDWARE DISPLAY REGISTER 
:*GENERAL PURPOSE REGISTER DEFINITIONS 

RO= x0 > :GENERAL REGISTER 

R1= 11 > :GENERAL REGISTER 

R2= X2 *;GENERAL REGISTER 

R3= 13 >: GENERAL REGISTER 

R4= 14 > :GENERAL REGISTER 

R5= 15 > GENERAL REGISTER 

R6= 16 : GENERAL REGISTER 

R?= 17 “GENERAL REGISTER 

SP= 16 >= STACK POINTER 

PC= 47 =: PROGRAM COUNTER 

-*PRIORITY LEVEL DEFINITIONS 

PRO- 0 | -: PRIORITY LEVEL 0 

PR1- 40 >; PRIORITY LEVEL 1 


SEQ 0017 


. 2 
MAINDEC=11-CRLPB-B AA11-k DIAGNOSTIC MACY11 30G(1063) 24-OCT-80 09:31 PAGE 3-1 
CRLPBB.P11 26-SEP-80 13:52 BASIC DEFINITIONS SEQ 0018 

(1) 000100 PR2= 100 > PRIORITY LEVEL ; 
(1) 000140 PR3= —s-_- 140 : PRIORITY LEVEL 

1 WD 000200 PR4= 200 “= PRIORITY LEVEL 4 
ee 13 000240 PR5= 240 “= PRIORITY LEVEL 5 
| .1) 000300 PR6= 300 >: PRIORITY LEVEL 6 
a3 000340 PR7= 340 >:PRIORITY LEVEL 7 
| a) -#''SWITCH REGISTER’ SWITCH DEFINITIONS 
fn. 100000 Swi5= 100000 
1 a 040000 Swi4= 40000 
| 3) 020000 Sw13= 20000 

(1) 010000 Swi2= 10000 
| (1) 004000 Swil= 4000 
(1) 002000 Sw10= 2000 
| (1) 001000 swO9= 1000 
(1) 000400 SWOB= 400 
(1) 000200 swO7= 200 
(1) 000100 SwO6= 100 
(1) 000040 swOS= 40 
(1) 000020 Sw04= 20 
(1) 000010 swO3= 10 
(1) 000004 SwO2= 
(1) 000002 swol= 2 
(1) 000001 swo0= 1 
(1) EQUIV SwWw09,SW9 
(1) EQUIV SWO8.SW8 
(1) EQUIV SWO7,SW7 
(1) EQUIV SW06,SW6 
(1) EQUIV SWw0S.SW5 
(1) EQUIV SW04.SW4 
| (1) EQUIV SwW03,SW3 
(1) EQUIV SW02,SW2 
(1) EQUIV Ssw01,Sw!i 
CW) EQUIV Sw00.SwO 
(1) -*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 100000 
(1). 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) 004000 BITI1= 4000 
(1) 002000 BIT10= 2000 . 

| @ 001000 BITO9= 1000 

1 @ 000400 BITOB= 490 

te 000200 BITO7= 200 

r @ 000100 BIT06= 100 

| a) 000040 BITOS= 40 

eal 000020 BITO4= 20 

(1) 000010 BITO3= 10 

(1) 000004 BITO2= 4 

(1) 000002 BITOl= 2 

(1) 000001 BITO0= 1 

(1) -EQUIV BITO9,BIT9 
(1) “EQUIV BITO8,BIT8 
(1) “EQUIV BIT07.BIT? 
(1) “EQUIV BIT06,B1T6 


MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC MACY11 30 
CRLPBB.P11 26-SEP-80 13:52 BASIC DEFINITIONS SEQ 0019 
(1) EQUIV BITOS,BITS 
(1) EQUIV BIT04,BIT4 
(1) EQUIV. BIT03,B1T3 
(1) EQUIV B1702,BIT2 
(1) EQUIV. BITO1,B81T1 
) EQUIV B1IT00,BITO 
(1) -*BASIC "'CPU'' TRAP VECTOR ADDRESSES 
(1) 000004 ERRVEC= 4 -: TIME OUT AND OTHER ERRORS 
. 000010 RESVEC= 10 »:RESERVED AND ILLEGAL INSTRUCTIONS 
weet 000014 TBITVEC=14 "TT BIT 
4 Sen 000014 TRIVEC= 14 >; TRACE TRAP 
| 6a) 000014 BPTVEC= 14 -: BREAKPOINT TRAP (BPT) 
ih eS 000020 IOTVEC= 20 >: INPUT/OUTPUT TRAP (IOT) **SCOPE*® 
(1) 006024 PWRVEC= 24 -: POWER FAIL 
(1) 000030 EMTVEC= 30 -:EMULATOR TRAP (EMT) **ERROR®*® 
(1) 000034 TRAPVEC=34 -:""TRAP'’ TRAP 
(1) 000060 TKVEC= 60 -: TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 >: TTY PRINTER VECTOR 
sv 000240 PIRQVEC=240 ->PROGRAM INTERRUPT REQUEST VECTOR 
1179 170416 ABASE=170416 
1180 100360 AVECT1=100360 
118) 000200 APRIOR=200 
1185 .SBTTL OPERATIONAL SWITCH SETTINGS 
** 
(1) ;* SWITCH USE 
(1) 3e www EOP eo oenerseses 
(1) Z 15 HALT ON ERROR 
(1) + 14 LOOP ON TEST 
(1) + 13 INHIBIT ERROR TYPEOUTS 
(1) + 12 STORAGE SCOPE CONNECTED 
(1) Zz 10 EXTERNAL DELAY SIGNAL CONNECTED 
(1) :t & LOOP ON TEST IN SWR<7:0> 
1184 .* TWO'S COMPLEMENT MODE 
1185 -SBTTL TRAP CATCHER 
( , 
(1) 000000 2 wt 
(1) :#ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.#2,HALT 
(1) -*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
(1) =*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
(1) 000174 2174 
(1) 000174 000000 DISPREG: .WORD 0 >: SOFTWARE DISPLAY REGISTER 
(1) 000176 000000 SWREG: .WORD O >: SOFTWARE SWITCH REGISTER 
| (1) .SBITL STARTING ADDRESS(ES) 
| (1) 000200 000137 001502 JMP Q#BEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
| 1186 000206 000137 001520 JMP BEGIN : JUMP TO RESTART ADDRESS 
| 1187 000210 000240 NOP 
1188 000212 000240 NOP 
1189 000214 000137 022022 JMP SuTK ; JUMP TO USER LINK 


H 2 
MAINDEC-11-CRLPB-8 AA11-K DIAGNOSTIC MACY11 30G6(1063) 24-OCT-80 09:31 PAGE 4 
CRLPBB.P11 26-SEP-80 13:52 ACT11 HOOKS SEQ 0020 


ae ~SBTTL ACT11 HOOKS 
(2) SLRRARRAHARHERAHA AHHH KKH HHH e HHH He eeKeteReeLehedeneteeeereetetere 
(1) sHOOKS REQUIRED BY ACT11 
(1) 000220 $SVPC=. ;SAVE PC 
(1) 000046 .=46 
4 000046 ths — ;;1)SET LOC.46 TO ADDRESS OF SENDAD IN .S$EOP 
(1) 000052 000000 .WORD Q ss 2)SET LOC.52 TO ZERO 
(1) 000220 ~=$SVPC +; RESTORE PC 
1192 001000 .=1000 
rare .SBTTL APT PARAMETER BLOCK 
( 
(2) SF RRAARAAHRRRKeATeKe eee eeeeeteteeetteeeeentteneteneeeeeeteeeterere 
(1) ;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) SERRA HH eee Keee ee eee ee teKekeetentteeeeeeeeeeKeteteteneeetenetee 
(1) 001000 ~$X=. ;;SAVE CURRENT LOCATION 
(1) 000024 .=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 200 ;;FOR APT START UP 
(1) 000044 .=4 ;;POINT TO APT INDIRECT ADDRESS PNiR. 
(1) 000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 
(i) 001000 -=.5X 5; RESET LOCATION COUNTER 
(2) SL RAeeeeeeeeeeeeeeetekeeeeeeetteretenetetetneteteeneeteneereteeee 
(1) ;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=-PDP11 DIAGNOSTIC 
+t INTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 000000 SHIBTS: .WORD 0 ;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001172 SMBADR: .WORD $MAIL : | ADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 000030 STSTM: .WORD 50 ;;RUN TIM OF LONGEST TEST 
(1) 001006 000060 SPASTM: .WORD 60 ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000120 SUNITM: .WORD 120 ;;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 000031 -WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS) 


1 2 
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CRLPBB.P11 26-SEP-80 13:52 COMMON TAGS SEQ 0021 


1194 . ~SBTTL COMMON TAGS 


EE 


(2) SRRRRRARA RHE AHR E Kee AA Hee eH eK eeeeKeeteeKeKeneretenetereetentees 
(1) ;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 

St. ;*USED IN THE PROGRAM. 

(1) 001100 .=1100 

(1) 001100 SCMTAG: ;;START OF COMMON TAGS 

(1) 001100 000000 .WORD OQ 

(1) 001102 000 STSTNM: .BYTE 0 ;; CONTAINS THE TEST NUMBER 

(1) 001103 000 SERFLG: .BYTE 0 ;; CONTAINS ERROR FLAG 

(1) 001104 000000 SICNT: .WORD OQ ;;CONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: .WORD 0 : ; CONTAINS SCOPE LOOP ADDRESS 

(1) 001110 000000 SLPERR: .WORD 0 ;; CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD OQ ;; CONTAINS TOTAL ERRORS DETECTED 
(1) 001114 000 SITEMB: .BYTE 0Q ;;CONTAINS ITEM CONTROL BYTE 

(1) 001115 001 SERMAX: .BYTE 1 ;: CONTAINS MAX. ERRORS PER TEST 
(1) 001116 000000 SERRPC: .WORD 0 ;; CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) =©001120 000000 SGDADR: .WORD 0 ;; CONTAINS ADDRESS OF ‘GOOD’ DATA 
(1) 001122 000000 SBDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘BAD* DATA 
(1) 001124 000000 SGDDAT: .WORD 0 ;;CONTAINS ‘GOOD’ DATA 

(1) 001126 000000 SBDDAT: .WORD 0 ;; CONTAINS ‘BAD* DATA 

(1) 001130 000000 -WORD 0 ;;RESERVED--NOT TO BE USED 

(1) 001132 000000 -WORD 0 

(1) 001134 000 SAUTOB: .BYTE 0 ; ;:AUTOMATIC MODE INDICATOR 

(1) 001135 000 SINTAG: .BYTE QO :; INTERRUPT MODE INDICATOR 

(1) 001136 000000 -WORD 0 

(1) 001140 177570 SWR : ~WORD OD ;; ADDRESS OF SWITCH REGISTER 

(1) 001142 177570 DISPLAY: .WORD D ; ;ADDRESS OF DISPLAY REGISTER 

(1) 001144 177560 $TKS: 177560 7; TTY KBD STATUS 

(1) 001146 177562 STKB: 177562 ;; TTY KBD BUFFER 

(1) 001150 177564 STPS: 177564 ;:; TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 STPB: 177566 ;; TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 000 SNULL : BYTE 0 ;; CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 ;;CONTAINS # OF FILLER CHARACTERS REQUIRED 
(1) 001156 012 SFILLC: .BYTE 1 >; INSERT FILL CHARS. AFTER A ‘LINE FEED’ 
(1) 001157 000 STPFLG: .BYTE 0 ::""TERMINAL AVAILABLE’ FLAG (BI1<07>=0=YES) 
(1) 001160 000000 SREGAD: .WORD 0 ;; CONTAINS THE ADDRESS FROM 

(1) ;,WHICH ($REGO) WAS OBTAINED 

(3) 001162 000000 SREGO: .WORD 0 ;; CONTAINS (($REGAD) +0) 

(3) 001164 000000 SREG1: .WORD 0 ;; CONTAINS (($REGAD) +2) 

(1) 001166 077 SQUES: .ASCII /2?/ ;;QUESTION MARK 

(1) 001167 015 SCRLF: .ASCII <15> 7; CARRIAGE RETURN 

(1) 001170 000012 SLF: -ASCIZ = <12> ;;LINE FEED 

(2) s RRAAAeeeeeReeeeteeeteeeteeeeeeeeeeeeteeeneeeeneneeeeeeeeereeest 
5h .SBTTL APT MAILBOX-E TABLE 

(3) SL ARHAeKAReeReeeeteeeeeeeeeeekeeeeeeeteteneneeteeeeeeeeterenereese 
(2) EVEN 

(2) 001172 SMAIL: ;: APT MAILBOX 

(2) 001172 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 

(2) 001174 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 

(2) 001176 000000 STESTN: .WORD ATESTN ;; TEST NUMBER 

(2) 001200 000000 SPASS: .WORD APASS ;:PASS COUNT 

(2) 001202 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

(2) 001204 000000 SUNIT: .WORD AUNIT ;;1/0 UNIT NUMBER 
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APT MAILBOX-E TABLE 


SMSGAD: 
: .WORD 


$CPUOP: 


*® 
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. WORD 


. WORD 


AMSGAD 
AMSGLG 


ACPUOP 


AMAMS 1 
AMTYP1 


AMADR1 


AMAMS2 
AMTYP2 


J @ 
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; ; MESSAGE yin iy 
+ sMESSAGE L LENGTH 

; APT ad eg te TABLE 
: SENVIRONMENT BYTE 
;;ENVIRONMENT MODE BITS 
+3 APT SWITCH : ypgteee 


YPE 
11706201. 11/05=02,11/20=03,11/40=04,11/45=05 
117702 06, -PD0=07, 0=10 
BIT 10=REAL TIME CLOC 
BIT 9=FLOATING POINT. PROCESSOR 
BIT 8=MEMORY "ao ENT 


300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
;;HIGH ADDRESS,BLK#1 
MEM.LAST ADDR.=3 BYTES. THIS WORD AND LOW OF ‘‘TYPE"’ 
>; HIGH ADDRESS,M.S. BYTE 
: > MEM. TYPE ,BLK&@2 
> ;MEM.LAST ADDRESS, BLK&2 
;;HIGH ADDRESS,M.S.BYTE 
; MEM. TYPE, BLK es 
;:MEM.LAST AOORE SS LESS 
> ;HIGH ADDRESS,M.S.BYTE 
; ;MEM. TYPE. BLK Kae 
>: MEM.LAST ADDRESS,BLK&4 
>; INTERRUPT VECTORA1 ,~BUS PRIORITY#1 
:; INTERRUPT VECTOR#2BUS PRIORI TY#2 
>; BASE ADDRESS OF EQUIPMENT UNDER TES! 
;:DEVICE MAP 
: ;CONTROLLER DESCRIPTION WORDA1 


ABOVE 


SEG 0022 
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013450 
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014476 
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MACY11 30G6(1063) 
ERROR POINTER TABLE 


~SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


kK 2 
24-0CT-80 


09:31 


PAGE 4-3 


;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOU 


; *NOTE 


: *NOTE2: 


SERRTB: 


: ITEM 


> 1 TEM 


s ITEM 


;1TEM 


:1TEM 


: 1 TEM 


:1TEM 


;AA11-K STATUS REGISTER IN ERRUR 
IBASE 00D AD 


sERRPC 


;SERRPC STAT 


; DACO REGISTER IN ERROR 
IBASE 


;ERRPC 


;SERRPC DACO 


; DAC!) REGISTER IN ERROR 


> ERRPC 


IBASE 


;SERRPC DAC1 


;ERRP 


IBASE 


 SERRPC DAC2 


GOO 
SGDDAT 
GOOD 


SGDDAT 


GOOD 
SGDDAT 


;DAC = REGISTER co ERROR 
00D BA 


SGDDAT 


ND IN 
S*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
$k IF S$ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


:;POINTS TO THE ERROR MESSAGE 
:;POINTS TO THE DATA HEADER 

;:POINTS TO THE DATA 
::POINTS TO THE DATA FORMAT 


SBDDAT 
BAD 
$BDDA! 


BAD 
SBDDAT 


D 
SBDDAT 


;DAC #3 REGISTER IN ERROR 


> ERRPC 


IBASE 


;SERRPC DAC3 


;PREVIOUSLY EXISTING AA11-K DOES NOT RESPOND NOW 


;SERRPC SBASE 


GOOD 
SGDDAT 


EVER 


BAD 


SBDDAT 


SUNIT 


SEQ 0023 


ee eee ae ee ee 


MAIND 
CRLP 


™m 
& 
oo 
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MONITOR NURINI A A RAR RRR RRR RAAF FAFA AA SSAA RRR SCNNNND 
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EC 


=11-CRL 
BB .P11 


001340 
001342 


001344 
001352 
001354 


001362 


001364 
001364 


001366 
OO eee 


PB-8 


000000 
000000 


014600 


170460 


170461 
170462 
170463 
170464 
170465 
170466 
170467 


000360 
000364 


000005 
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ERROR POINTER TABLE 


: 1TEM 


: ITEM 


VECTOR: 
VECTPS: 


VERSN: 
.DVLS: 


“ADDRESS OF KMC-11 OF LPA-11 


. WORD 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


~ WORD 
. WORD 


. WORD 


170460 “BASE KMC ADDR. MAY BE PATCHED BY USER. 
1704601 :>DO NOT <:KMC=CSR ADDR 
170460+2 ;>PATCH <; 
170460+3 ;>THIS AREA < 
170460+5 ->D0 NOT. < 
170460+6 :>PATCH < 
170460+7 ;>THIS AREA < 
AVECT1&777 “BASE VECTOR OF KMC 
G+AVECTI&777 —«-: VECOTR ADDR. +2 
5 “CURRENT VERSION NUMBER OF MICROCODE. 
0 -/DEVICE LIST OF I/O. ADDR. DEFINED 
16. ;/BY INIT. 
- ADJUSTMENT TO NEXT AA11-K"S ADDRESS 
“ADJUSTMENT TO NEXT AA11-K'S VECTOR 
“DELAY COUNTER FOR DELAY LOOPS 


= : 
MACY11 30G6(1063) 24-OCT-80 09:31 PAGE 4-4 


:BUS TIME-GUT ON AA11<K ADDRESSES 
sERRPC IBASE 
:SERRPC STAT 


;AA11-K READY BIT ERROR 
;ERRPC IBASE GOOD BAD 
;SERRPC STAT SGDDAT S$BDDAT 


THE ADDR FOR KMADO MAY BE 
CHANGED BY THE USER TO REFLECT 
A DIFFERENT KMC-11 ADDR. THE 
REST OF THE ADDRESSES WILL 

BE CHANGED BY THE PROGRAM. 


SEQ 0024 


r 


mM 2 
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‘MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC MACY11 306(106?) PAGE 4-5 
CRLPBB.P11 = 26-SEP-80 13:52 ERROR POINTER TABLE SEQ 0025 
1260 001472 170424 DAC2: 170424 
| 1261 001474 170426 DAC3: 170426 
| 1262 001476 000350 IV 350 
1263 001500 000352 IvS: 352 
1265 001502 005037 014632 BEGIN: CLR TEMP 
1266 001506 005037 014642 CLR EVER :RESET POINTER 
1267 001512 005037 014644 CLR EVER1 
1268 001516 000403 BR BEG 
1269 001520 012737 000001 014632 BEGINI: MOV #1, TEMP 
1 001526 000240 BEG NOP 
1 “SBTTL INITIALIZE THE COMMON TAGS 
-= CLEAR THE COMMON TAGS (SCMTAG) AREA 
001530 012706 001100 MOV #SCMTAG,RO »:FIRST LOCATION TO BE CLEARED 
001534 005026 CLR (R6)+ = =CLEAR MEMORY LOCATION 
001536 022706 001140 CMP #SWR,R6 ;: DONE? 
001542 001374 ~ -6 ::LOOP BACK IF NO 
001544 012706 001100 #STACK,SP :=SETUP THE STACK POINTER 
- s INITIALIZE A FEW VECTORS 
001550 012737 015100 000020 MOV #SSCOPE ,a#1OTVEC : 107 VECTOR FOR SCOPE ROUTINE 
001556 012737 000340 000022 MOV #340, ,a#LOTVEC+2 ;:LEVEL 7 
001564 012737 015232 000030 MOV #SERROR, aFEMTVEC :FEMT VECTOR FOR ERROR ROUTINE 
001572 012737 000340 000032 MOV #340, a#EMTVEC+2 ;:LEVEL 7 
1600 012737 017572 000034 MOV #STRAP AFTRAPVEC : TAP VECTOR FOR TRAP CALLS 
001606 012737 000340 000036 MOV #340, a#TRAPVEC?2: (evel 7 
001614 012737 015516 000024 MOV #SPWRON, APWRVEC is POWER FAILURE VECTOR 
601622 012737 000340 000026 MOV #340, a#PWRVEC+2 ;sLEVEL 7 
001630 012737 001630 001106 MOV SSLPADR NIT TALIZE THE LOOP ADDRESS FOR SCOPE 
::SIZE FOR A HARDWARE SWITCH reGister. IF NOT FOUND OR IT IS 
"EQUAL TO A ‘'=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
001636 013746 000004 MOV QVERRVEC,-(SP) ;;SAVE ERROR VECTOR 
001642 012737 001676 000004 MOV #64$,a#ERRVEC ::SET UP ERROR VECTOR 
001650 012737 177570 001140 MOV #DSWR, SWR = SETUP FOR A HARDWARE SWICH REGISTER 
001656 012737 177570 001142 MOV #DDISP, DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
1664 022777 177777 177246 CMP #-1,aSwR >: TRY TO REFERENCE HARDWARE SWR 
001672 001012 BNE 66$ > =BRANCH IF NO TIMEOUT TRAP OCCURRED 
-:AND THE HARDWARE SWR IS NOT = -1 
001674 03 BR 65$ BRANCH IF NO TIMEOUT 
001676 012716 001704 64$: MOV #65$, (SP) -:SET UP FOR TRAP RETURN 
00° 702 002 RTI 
1704 012737 000176 001140 65$: MOV #SWREG, SWR ::POINT TO SOFTWARE SwWR 
001712 012737 000174 001142 MOV #OISPREG, DISPLAY 
001720 012637 000004 66$: MOV (SP)+,aWERRVEC ;;RESTORE ERROR VECTOR 
001724 005037 001200 CLR SPASS -CLEAR PASS COUNT 
1730 132737 000200 001213 BITB #APTSIZE.SENVM TEST USER SIZE UNDER APT 
1736 001403 ef 7 YES,USF NON-APT SWITCH 
001740 012737 001214 001140 MOV #SSWREG, SWR *:NO,USE APT SWITCH REGISTER 
001746 673%: 
“THIS SECTION OF CODE HANDLES INITIALIZING LPA-11 FUNCTIONS 
001746 010046 MOV RO,-(SP) 
001750 010146 MOV R1.-(SP) 
001752 013700 001364 MOV KMADO,RO “GET KMC-11 ADDRESS. 
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001366 


001404 
001412 


177776 
002176 


000242 
000240 


001002 


001464 
001246 
001476 
001466 
000002 
000012 


001242 


002014 
014632 


000042 
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001476 


014640 


68$: 


~SBTTL 


LDTRAP: 


$$: 


.SBTTL 
10$: 


12$: 


MACY11 30G6(1063) 
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MOV #KMAD1,R1 :CCT ADDR. OF ADDR. LIST. 
INC RO “UPDATE ADDR. 

MOV RO,(1)¢ “WRITE ADDR. 

CMP R1. #KMAD7+2 ; DONE ALL ADDRESSES? 
BNE 68$ NO = DO NEXT ADDR. 

CLR DVLS “CLR ADDR. LIST. 

MOV (SP)+,R1 

MOV (SP)+_RO 

CLR aePs 

JMP INIT1 

SUBROUTINE TO LOAD A TRAP CATCHER 

MOV #242 ,R2 LOAD 

MOV #240,R1 “LOAD R1 

MOV R2,(R1)¢ “LOAD .+2 

CLR (R1)+ “LOAD HALT 

MOV R1.R2 “LOAD R2 

TST (R2)+ : BUMP R2 

CMP R2,#1002 ST FOR LAST 


BNE 

LOAD DEVICE ADDRESSES LOCATIONS 
MOV @STAT,R 

SBASE,(RO)+ 


TE 
“BR UNTIL DONE 


;LOAD POINTER 
;LOAD BASE ADDRESS 


#1 VR RO TEST FOR DONE 

#DACO,RO “LOAD 2ND ADDRESS 
2,R1 “LOAD R1 

R71. (RO)+ “UPDATE REAL DEVICE WORD 
(R1)+ “BUMP R1 

#12,R1 “TEST FOR DONE 
12$ “BR 

$VECT1,1V “LOAD INTR. VECTOR ADDRESS 

#160000, LV 

IV,1VS 

#2,1VS 

$VECT1¢1,BRLEV’ :LOAD BR LEVEL 

#177437, BRLEV' 

BRLEV1,BRLEV2 

#40, BRLEV2 

PC sEXIT 

HEADER TYPEOUT AND WAIT FOR OPERATOR 

/AL/ 

/AD/ 

/ML/ 

/*D / 

/mC/ 

PC .LDVRAP 

TEMP TEST IF START OR RESTART 
CTRLC “RESTAR 

ans “TEST if MONI TOR 

MTEST IF NOT 


SBR 
;CALL MESSAGE PRINTER VIA “EMT 
; TYPE PROGRAM HEADER. 


SEQ 0026 


a oo 


mA 
CR 
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— 
: 


~: 
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SN SNS 
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002320 
002322 
002326 
002332 
002336 
007342 


002346 


002356 


002360 
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912706 


042737 
023737 


000740 
000137 


000137 


104401 


000721 


013737 
005037 
005037 


AA11<-K 
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001100 
014646 
000000 
002164 
002166 
002170 
002172 
002174 


001246 
001412 
001204 


020726 
001454 
001204 
001204 


014642 
000001 


001204 


DIAGNOSTIC 
INITIAL 


WAITIN: 


014646 
014646 
014646 
014646 
014646 
014646 


001126 


001126 


001134 


aa ad end axl ead 
Ww & in © 
PAHS 


CTRLC: 


.SBTITL 
MTEST: 


1$: 


** 


2$: 


3$: 


MACY11 30G6(1063) 
HEADER TYPEOUT AND WAIT 


DETERMINE THE NUMBER OF 


#STACK, SP 
a(SP)+,OPRIN 
#0,OPRIN 

AL OPRIN 

AD, OPRIN 

11$ 

ML, OPRIN 

13$ 

MD, OPRIN 

14$ 

MC, OPRIN 

15$ 


WAITIN 


CALDAC 


SPASS 
WAITIN 


eth » SBDDAT 
SUNIT 
@SBDDAT,STMDAT 
_ 
VADOR , SBDDAT 
SUNIT 

SUNIT 

3$ 

10 


TST1 
EVER 


4$ 
#1, SAUTOB 
6% 


SUNIT,-(SP) 


3 
2 “OCT-80 09:31 
FOR OPERATOR 
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;RESET STACK 


;TEST FOR CTRL G 

;READ TWO CHARACTERS 
:READ THE CHARACTER 
:MASK OTHER CHARACTERS 


TEST FOR as 0 


;BR IF YES 


;WAIT FOR OPERATOR AGAIN 


;RUN THE LOGIC TEST 

;RUN THE VISUAL PATTERN 

;RUN THE MANUAL LOGIC TEST 

;RUN THE RAMP PATTERN ON FOUR DAC'S 
;RUN THE MANUAL CAL OF THE DAC 


AA11-K ON THIS SYSTEM 


;GET THE BASE ADDRESS 
;CLEAR UNIT @ 


;/READ DEVICE REG SBDDAT,PUT DATA IN STMDAT. 


;UPDATE THE BUS ADDRESS 
;UPDATE UNIT COUNT 


;TEST IF ANY tek 
“BR IF SOME ARE THERE 
sBASE ADDRESS CAUSED AN BUS TRAP 


‘TEST If # ~“y BEEN REPORTED 


RR IF 


IT H 
;TEST IF AUTO MODE (XXDP CHAIN) 
BR IF YES 


;TELL OPERATOR THE # OF AA11-K‘'S 
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002542 
002544 
002562 
002572 


002606 


002622, 


002636 


002672 
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104403 


004737 
000240 


000004 
012737 
012737 


005737 
005737 
005737 
005737 


005737 
012737 
000004 
005037 


023737 
001401 
104002 
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001204 
100000 
014642 


001204 
002014 


002562 


002660 


001462 


001462 


001462 


001462 


001462 


000006 


001124 


001124 
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;SAVE THE # OF AA11-K'S FOR LATER 


“TEST IF ANY HAVE GONE AWAY 
"-BR IF ALL ARE STILL HERE 
“EXISTING UNIT FAILED TO RESPOND NOW 


;LOAD TRAP CATCHER AND BUS ADDRESSES 


;/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 
;/READ DEVICE REG DACO,PUT DATA IN $TMDAT. 
;/READ DEVICE REG DAC1,PUT DATA IN STMDAT. 
;/READ DEVICE REG DAC2,PUT DATA IN $TMDAT. 


;/READ DEVICE REG DAC3,PUT DATA IN STMDAT. 
;;BR AND RESTORE LOC. 4 
;ERROR, BUS TIMEOUT WHEN ADDRESSING THE AA11-K 


;LOAD EXPECTED 
;/ PUT DATA FROM $GDDAT TO DEVICE REG DACO 


DIAGNOSTIC MACY11 30G6(1063) 
DETERMINE THE NUMBER OF AA11-kK ON THIS SYSTEM 
TYPOS 
BYTE 2 
BYTE OQ 
TYPE 
FOUND2 
014642 68: MOV SUNIT EVER 
014642 BIS #81115, EVER “SET "REPORTED # FLAG 
001204 4$: CMPB Ss EVER, SUNIT 
BEQ 5$ 
ERROR 6 
S$: CLR SUNIT “RESET UNIT POINTER 
JSR PC ,LDTRAP 
LTES:: NOP 
SL eeeeeeaeaeekeeererigtereerereteeeteeeeKeneReanenanearaneeeeeede 
-*TEST 1 TEST THAT THE AA11-K RESPONDS TO THE CPU 
Ss eeeeeedaekeRetekeeeeeeeeeetetreteteteaReeeKenekeneeetenerenenes 
TST1: SCOPE 
001106 MOV #3$,$LPADR 
000004 MOV #1$ ERRVEC “LOAD BUS TRAP RETURN 
st MOV aSTAT. STMDAT 
TST STMDAT 
:e MOV @DACO,STMDAT 
TST STMDAT 
+t MOV QDAC1,STMDAT 
TST STMDAT 
;t MOV QDAC2,$TMDAT 
TST STMDAT 
:* MOV @DAC3, STMDAT 
TST STMDAT 
BR 2$ 
1$ CMP (SP)+,(SP)¢ “CLEAN THE STACK 
ERROR 10 
000004 2$: MOV #6 ,ERRVEC “LOAD RETURN 
SP eeeeeeeateketeteeeteteeteetereteeneeaeneneereneneeeeteeenesenee 
-*TEST 2 TEST THAT THE DACO REGISTER CAN BE CLEARED 
SpeeeeteeeeeeeeereeeeeeereeertrrereeeteeeeeeeetaneeeeAeeeenenenene 
1ST2: SCOPE 
CLR $GDDAT 
;t MOV $GDDAT. aDACO 
;* MOV @DACO, SBDDAT 
001126 CMP 


BEQ S 
ERROR 2 


SGDDAT ,SBDDAT 
TST3 


;/READ DEVICE REG DACO,PUT DATA IN SBDDAT. 
; COMPARE 


C 
::BR IF EQUAL 
“ERROR, DACO REGISTER NOT = 0 


s eee eeeeeeeeeeeterereeeeeeetererteteeeeeeteeeeteeteeteenerereees 


S*TEST 3 


TEST THAT THE DACO REGISTER CAN BE LOADED WITH #7777 


ee ee 
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000004 
012737 


023737 
001401 
104002 


000004 
012737 


023737 


001360 


000004 
005037 


023737 
001401 
104005 


000004 
012737 


023737 
001401 
104003 


060004 


AA11-K 
13:52 
007777 


001124 


004000 


001124 


001124 


001124 


001124 


007777 


001124 


DIAGNOSTIC 
13 


001124 


001126 


001124 


001126 


001126 


001124 


001126 


dD 3 
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TEST THAT THE DACO REGISTER CAN BE LOADED WITH #7777 SEQ 0029 


'WRARBRBRBRBBRBRBARABRASSAALRSAARRAAARRRARRRRRRRR RAR RRR RRARRRRR RASA RRR AD SD SD | 


TST3: 


SCOPE 

MOV #7777, $GDDAT ;LOAD EXPECTED 

MOV SGDDAT ,aDACO ;/ PUT DATA FROM $GDDAT TO DEVICE REG DACO 
MOV aDACO, SBDDAT ; /READ gi fh a. DACO,PUT DATA IN $BDDAT. 

CMP SGDDAT,SBDDAT ; COMPARE 

BEQ TST4 ;;BR IF EQUAL 

ERROR 2 sERRCR, DACO REGISTER NOT = 7777 


SERRA AERA AERA AAEAA REE AA AETHER E AERA AAAAAAAARERARHE AKER EASE 


:*TEST 4 


TEST THAT THE DACO REGISTER CAN HOLD A FLOATING 1 PATTERN 


WRARBBRBBBRBBRRSAASAASASRARARRRAARAARERRRRRRR RRR RA RR RRR RRR ARRRAR RSD SD SD | 


TST4: 


1$: 
* tt 


‘* 


?$: 


SCOPE 


MOV #B1T11,$GDDAT ;LOAD EXPECTED 

MOV SGDDAT ,aDACO ;/ PUT DATA FROM $GDDAT TO DEVICE REG DACO 

MOV Q@DACO, $BDDAT ; READ gi ih REG DACO,PUT DATA IN S$BDDAT. 

CMP SGDDAT,$BDDAT ;COMPARE THE DATA 

BEQ 2$ :;BR IF SAME 

ERROR 2 sERROR, DACO REGISTER FAILED TO HOLD A FLOATING 
ASR SGDDAT ;CHANGE THE DATA 

BNE 1$ ;BR AND TEST MORE DATA 


SFRAAAAHERAAAAAEAAEAERAAAK EA K KARE RAE AK AKKARAARKARARAKAAAAAAALA ATS 


:*#TEST 5 TEST THAT THE DAC #1 REGISTER CAN BE CLEARED 
S eeeeaeekekeeeeteeeeteeeeeretereteetarananenetanenaeenenenenerense 
TSTS: SCOPE 
CLR SGDDAT ;LOAD EXPECTED 
;* MOV SGDDAT,a@DAC1 :/ PUT DATA FROM $GDDAT TO DEVICE REG DAC 
-* MOV @DAC1, $BDDAT :/READ DEVICE REG DAC1,PUT DATA IN $BDDAT. 
CMP $GDDAT, SBDDAT : COMPARE 
BEQ TST6 ::BR IF EFQUAL 
ERROR 3 sERROR, DAC1 REGISTER NOT = 0 
“RRR eee ee eeekeeeeeeeeReteaeaaeeeerketeeeeeee 
 STEST 6 TEST THAT THE Y REGISTER CAN BE LOADED WITH #7777 
+ Re eeeeeeeeeeeeeeeeeeeeeeeteeeeeeeeneneeeeereenerereeenerereeers 
TST6: SCOPE 
MOV #7777, SGDDAT ;LOAD EXPECTED 
;* MOV SGDDAT,a@DACl :/ PUT DATA FROM $GDDAT TO DEVICE REG DAC! 
;@ MOV @DAC1,S$BDDAT ; /READ wef A. DAC1,PUT DATA IN S$BDDAT. 
CMP SGDDAT,$BDDAT ; COMPARE 
BEQ 1ST? ::BR IF EQUAL 
ERROR $3 sERROR, ODAC1 REGISTER NOT = 7777 


**@RReeReeRkeeeeTAeeeeteeeeeeeeekekaekteteteteeeeteteteteneererese 


SeTEST 7 


TEST THAT THE Y REGISTER CAN HOLD A FLOATING 1 PATTERN 


**@eeeeeeeeeeeeteteeeteeeeeeteeetteteeeeetetateaetekteteaeteteeeeeeeeese 


S17: 


SCOPE 
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003150 
003156 


003176 


003214 


003216 
003220 


003244 
003252 
003254 


003256 
003260 


003306 
003314 
0033516 
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012737 


023737 
001401 
104003 
006237 
001360 


000004 
005037 


023737 
001401 
104004 


000004 
012737 


023737 
001401 
104004 


000004 
012737 


023737 


001360 


AA11<-K 
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004000 


001124 


001124 


001124 


001124 


007777 


001124 


004000 


001124 


001124 


: 
DIAGNOSTIC MACY11 306(1063) 24-0 
17 TEST THAT THE Y REGIST 
001124 MOV .. #BIT11,$GDDAT 
;* MOV $GDDAT, a@DAC1 
-* MOV QDAC1,$BDDAT 
001126 CMP $GDDAT, $BDDAT 
BEQ b 
ERROR 3 
2$: ASR $GDDAT 
BNE 1$ 
“*TEST 10 
TST10: SCOPE 
CLR SGDDAT 
;* MOV S$GDDAT, aDAC2 
;* MOV QDAC2,$BDDAT 
001126 CMP SGDDAT, SBDDAT 
BEQ TST11 
ERROR 4 
:*TEST 11 
TST11: SCOPE 
001124 MOV #7777, SGDDAT 
;# MOV SGDDAT, aDAL2 
;* MOV QDAC2, SBDDAT 
001126 CMP SGDDAT, $BDDAT 
BEC TST12 
1, ERFLR 
* STEST 12 
T8112: SCOPE 
001124 wm MOV #B1111,S$GDDAT 
;# MOV SGDDAT, aDAC2 
;* MOV @DAC2, $BDDAT 
001126 CMP SGDDAT, SBDDAT 
BEQ 2$ 
ERROR 4 
2$: ASR SGDDAT 
BNE 1$ 


3 
CT-8 
ER C 


0 09:31 
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AN HOLD A FLOATING 1 PATTERN 
;LOAD EXPECTED 


;/ PUT DATA FROM $GDDAT TO DEVICE REG DACI 
; /READ OT COMP REG DACI, + DATA IN $BDDAT. 


MPARE THE DATA 


R IF DATA IS SAME 
;ERROR, DAC] REGISTER FAILED [TO HOLD A FLOATING 
: CHANGE THE DATA 

;BR AND TEST MORE DATA 


'MARBBBBBRBBRBASSZASLASSAERARERARARRRRRRR RR RRR RRR RRR RRR RRR RRR RAAAAA SS 


TEST THAT THE DAC #2 REGISTER CAN BE CLEARED 


SF RERAA AAA E AERA ATERA AEE AE AEEEAEEREAARAAAAAAAEHREAEEAAAE REE RE ATES 

;LOAD EXPECTED 

:/ PUT DATA FROM $GDDAT TO DEVICE REG DAC2 

;/READ DEVICE A. DAC2,PUT DATA IN $BDDAT. 
; COMPARE 

:;8R IF EQUAL 


;ERROR, DAC #2 REGISTER NOT 


SLRRAAAAHAAKAEAAAEHEHEKEHEH HEHEHE AAAAHRAARAAAARAKAAARARAAKAR KAAS 


TEST THAT THE DAC #2 REGISTER CAN BE LOADED WITH #7777 


+ eee eR eR RHEE H HEE HKETE THEA K HARE KATH A HRA Ae KATA eee eA AeA eee 
;LOAD EXPECTED 

;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC2 
;/READ ge ik3 A. DAC2,PUT DATA IN $BDDAT. 
;;BR IF EOUAL. AL e 


sERROR, DAC #2 REGISTER NOT 


seeeececeererereetererrerertereeteetateereeseneneeneneeeereneees 


TEST THAT THE DAC #2 REGISTER CAN HOLD A FLOATING 1 PATTERN 


MT PRPRRRREBRERERARRERERESEEERARERR SRR RRR RRR RRR RR RAR RRR RA RRARRR SDD SD SD | 


;LOAD EXPECTED 


0 


= 7777 


;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC2 
; /READ edt $F REG DAC2,PUT DATA IN SBDDAT. 


R IF 


PARE THE DATA 


we 
ia 
x 


;CHANGE THE DATA 
:BR AND TEST MORE DATA 


sp eeeteeerarerereeerireeteeeeereteeereneneneeeeeaeeeeetesesereens 


SEQ 0050 


E 
sERROR, DAC #2 REGISTER FAILED TO HOLD A FLOATIN 


ro 
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MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC 
CRLPBB.P11 26-SEP-80 13:52 113 TEST THAT THE DAC #3 REGISTER CAN BE CLEARED SEQ 0031 
(3) ;*TEST 13 TEST THAT THE DAC #3 REGISTER CAN BE CLEARED 
(3) SsRRAHHRHHHKAHETA HHT K TATA e eee ete ee KeKeeAeKeKeRenentenetetetere 
(2) 003370 000004 TST13: SCOPE 
Fst 003372 005037 001124 CLR SGDDAT ;LOAD EXPECTED 
moe} ;* MOV SGDDAT,@DAC3 =; / PUT DATA FROM SGDDAT TO DEVICE REG DAC3 
(1) ;* MOV aDACS, SBDDAT ;/READ DEVICE REG DAC3,PUT DATA IN SBDDAT. 
1506 003416 023737 001124 001126 CMP SGDDAT ,SBDDAT ; COMPARE 
1507 003424 001401 BEQ TST14 ;;BR IF EQUAL 
ene 003426 104005 ERROR 5 sERROR, DAC #3 REGISTER NOT = 0 
1510 sRRARAEHe HEHE KH A AAAA TATA Tee eee eee ee te eeeeeKeeeeeAtAeeeentete 
(3) ;*TEST 14 TEST THAT THE DAC #3 REGISTER CAN BE LOADED WITH #7777 
(3) SRR ARR He HRH Ree H THA TATA eee ere eee teKeKeetateeteneteeeeeree eet 
(2) 003430 000004 TST14: SCOPE 
1313 003432 012737 007777 001124 MOV #7777 ,$GDDAT ;LOAD EXPECTED 
139% ;* MOV SGDDAT,aDAC3 ;/ PUT DATA FROM $GDDAT TO DEVICE REG DAC3 
(1) ;* MOV Q@DAC3, $BDDAT ;/READ DEVICE REG DAC3,PUT DATA IN $BDDAT. 
1514 003460 023737 001124 001126 CMP SGDDAT ,SBDDAT ; COMPARE 
1515 003466 001401 BEQ TST15 ;:;BR IF EQUAL 
1218 003470 104005 ERROR 5 ;ERROR, DAC #3 REGISTER NOT = 7777 
1518 SLRRAARARARAAAEAAA AACA e eee ee ete ee Kee Ae eeeteteetetateetereeeeree 
(3) ;*TEST 15 TEST THAT THE DAC #3 REGISTER CAN HOLD A FLOATING 1 PATTERN 
(3) SAAR RRARE HRA R AeA eH TAHA eee et eeeKAeeeeeeeeKenHeeeteneeeeeeeres 
(2) 003472 000004 TST15: SCOPE 
1519 003474 012737 004000 001124 MOV #B1T11,$GDDAT ;LOAD EXPECTED 
oi 003502 1$: 
1331 ;* MOV SGDDAT,aDAC3 ;/ PUT DATA FROM S$GDDAT TO DEVICE REG DAC3 
(1) ;* MOV aDAC3,$BODAT ;/READ DEVICE REG DAC3,PUT DATA IN $BDDAT. 
1522 003822 023737 001124 001126 CMP SGDDAT ,SBDDAT ;COMPARE THE DATA 
1523 003530 001401 BEQ 2$ ;;BR IF SAME 
1524 003532 104005 ERROR 5 sERROR, DAC #3 REGISTER FAILED TO HOLD A FLOATIN 
1525 003534 006237 001124 2$: ASR SGDDAT ;CHANGE THE DATA 
1526 003540 001360 BNE 1$ ;BR AND TEST MORE DATA 
1527 SERRE Keeeeeee eet ree eee eeeeeteeeteKtetaeKeetereereeterenreneees 
(3) ;*TEST 16 TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 
(3) SARAH RARRAAReKAee eee eee tere teeeeeeeeeeteteKeeeeeteeteeeReeesere 
(2) 003542 000004 TST16: SCOPE 
Hf 35 003544 012737 001111 001462 MOV #1111, STMDAT ;LOAD DAC #0 
(1) ;* MOV STMDAT ,aDACO ;/ PUT DATA FROM STMDAT TO DEVICE REG DACO 
1530 003562 012737 002222 001462 MOV =: #2222, STMDAT LOAD DAC #1 
(1) it MOV STMDAT ,a@DAC1 ;/ PUT DATA FROM STMDAT TO DEVICE REG DACI 
FE 003600 012737 004444 091462 MOV #4446 ,$TMDAT ;LOAD DAC #2 
(1) ;* MOV STMDAT,a@DAC2 ;/ PUT DATA FROM STMDAI TC DEVICE REG DAC2 
see 003616 012737 007777 001462 MOV #7777, $TMDAT ;LOAD DAC #3 
(1) :* MOV STMDAT,@DAC3 ;/ PUT DATA FROM STMDAT TO DEVICE REG DACS 
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003732 
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012737 


023737 
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001126 


001124 


001126 


001124 


001126 


001124 


001126 


001124 


001126 


001462 


001124 


001126 


001462 


6 3 
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TEST THAT THE FOUR DAC REGISTERS CAN HOLD DIFFERENT DATA 


MOV 


B 
ERROR 


#0,STMDAT 


STMDAT, aSTAT 
#1111, $GDDAT 


QaDACO, $BDDAT 
 weteotreameepse' 


2 
#2222, $GDDAT 


QaDAC1,S$BDDAT 
ee ee 


3 
#4444 ,$GDDAT 


aDAC2, SBDDAT 
ge seam 


4 
#7777, $GDDAT 


aDAC3,SBDDAT 
SGDDAT,SBDDAT 
TST17 


5 


sCLEAR STATUS 


;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
;LOAD EXPECTED 


;/READ DEVICE REG DACO,PUT DATA IN SBDDAT. 
; COMPARE 


:;BR IF EQUAL 
“ERROR, SELECTED DACO IN ERROR 


;LOAD EXPECTED 
;/READ DEVICE REG DAC1,PU7 DATA IN S$BDDAT. 
; COMPARE 


;;BR IF EQUAL 
sERROR, SELECTED DAC1 IN ERROR 


;LOAD EXPECTED 
;/READ DEVICE REG DAC2,PUT DATA IN S$BDDAT. 
; COMPARE 


;;BR IF SAME 
sERROR, SELECTED DAC #2 IN ERROR 


;LOAD EXPECTED 
;/READ DEVICE REG DAC3,PUT DATA IN $BDDAT. 
; COMPARE 


::BR 1F SAME 
“ERROR, SELECTED DAC #3 IN ERROR 


SSRARAAAAAAAAAHATE RETA ATER HATHA RAARERARAK AERA TAHA AAAS 


-*TEST 17 


TST17: 


SCOPE 


BEQ 
ERROR 


TEST THAT RESET SETS READY BIT 


RRR eeeeeeekeeaeeeteaeeetaeeeeteeeeeaeeeeeeeeee 


#B11T7,$GDDAT 
PC,SRESET 


aSTAT,S$BDDAT 
SGDDAT,SBDDAT 
pstee 


;LOAD EXPECTED 


:/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
: COMPARE 


;;BR IF SET 
;RESET FAILED TO SET READY 


MOREE AKAee eee eeeeeeeeeeeeeteeeeteneteaeeetetenene 


“*TEST 20 


TS120: 


SCOPE 
MOV 


TEST THAT FAST INTENSIFY CAN BE SET AND CLEARED 


MARR eRETEKAHeeeeeAeeeeeeeeeaeteteteetekeeaeeeteeeeeekeetese 


#B1T1,STMDAT 
STMDAT ,aSTAT 


#B1T7!BI11T1,$GDDAT 


@STAT,SBDDAI 
epee .venene 


1 
#0, STMDAT 


;LOAD BIT 1 


;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
;LOAD EXPECTED 


:/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
: COMAPRE 
:;BR IF SAME 


ERROR, STATUS NOT = 202 
;CLEAR STATUS REGISTER 


SA sls 


MAINDEC-11-CRLPB-B 
CRLPBB.P11 


~~ ~~ L'! 


—*# td OLD — —_» —_— — 2 
LODO DOO 0D BB BBV WW ODOD 
~Om~n wr 


PUPILS SUS SSI UT UTTAR ee WITT UI 
SE teh a~ Pa 


ee et ot ed wt = od 


—s —2 2 


0041536 


004154 
004162 
004164 


04170 
004206 
004224 
004236 
004254 


004272 
004300 
004302 


004304 
004306 


004324 


004 342 
004 350 
004 352 


26-SEP-80 


012737 


023737 
001401 
104001 


000004 


012737 


012737 


023737 


012737 


012737 


023737 
001401 
104001 


000004 
012737 


012737 


023737 
001401 
104001 


012737 


012737 


023737 
001401 
104001 


AA11-K 
13:52 


000200 


001124 


000004 


000204 


001124 


000000 


000200 


001124 


000010 


000210 


001124 


000000 


000200 


001124 
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DIAGNOSTIC 
120 TEST THAT FAST INTENSIFY CAN BE SET AND CLEARED 
+t MOV STMDAT.ASTAT —-:/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
001124 MOV #BIT7, $GDDAT *LOAD EXPECTED 
+t MOV QSTAT.$BDDAT  ;/READ DEVICE REG STAT,PUT DATA IN SBDDAT. 
001126 CMP $GDDAT, $BDDAT : COMPARE 
BEQ TST21 :;BR IF SAME 
ERROR 1 “ERROR, STATUS NOT = 200 


001462 


001124 


001126 


001462 


001124 


001126 


001462 


001124 


001126 


001462 


001124 


001126 


"ss ReeeekeeeeeeereteteeetereeeeteeeeeeeaeeeeeteReKteeneeneneeeenes 


s*TEST 21 TEST THAT MODE BIT 2 CAN BE SET AND CLEARED 

S ;eeeneeenererrereteeeeetterereteneeeeeetinaeeenaneeaneretenerene 

TST21: SCOPE 
MOV #BI1T2,$TMDAT ;LOAD DISPLAY STATUS 

7* MOV STMDAT,@STAT :/ PUT DATA FROM $STMDAT TO DEVICE REG STAT 
MOV #B117'BIT2,$GDDAT sLOAD EXPECTED 

;t MOV aSTAT,$BDDAT :/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
CMP S$GDDAT,$BDDAT : COMPARE 
BEQ 1$ ::;BR IF EQUAL 
ERROR 1 sERROR, STATUS NOT = 204 

1$ MOV #0,STMDAT sCLEAR STATUS 

e MOV STMDAT, @STAT :/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 
MOV #BI1T7,$GDDAT ;LOAD EXPECTED 

;* MOV aSTAT,SBDDAT :/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
CMP SGDDAT,$SBDDAT ; COMPARE 
BEG TST22 ;;BR IF CLEARED 
ERROR 1 ;MODE FAILED TO CLEAR 


Ss eeeeesaaeeeeererersteterereteetaneeteneenateneneenerentereresse 


:*TEST 22 TES AT MODE BIT 3 CAN BE SET 

pe eeeerteteakaeeereetereteerereeeeeetanenenenaeenenenenetereeenes 

TST22: SCOPE 
MOV #B1T3,STMDAT ;LOAD 

;f MOV STMDAT,@STAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
MOV #BIT7'BIT3,$GDDAT ;LOAD EXPECTED 

;¢ MOV aSTAT,SBODAT ;/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
CMP SGDDAT,SBDDAT ; COMPARE 
BEQ 1$ :;BR IF EQUAL 
ERROR 1 sERROR, STATUS NOT = 210 

1$ MOV #0,STMDAT -CLEAR REG. 

:e MOV STMDAT,@STAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
MOV #B117,$GDDAT sLOAD EXPECTED 

;* MOV aSTAT,SBDDAT :/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
CMP SGDDAT,SBDDAT ; COMPARE 
BEQ T$123 >;BR IF EQUAL 
ERROR 1 sERROR, STATUS NOT = 200 


—— 


ee eee ee 


MAINDEC-11-CRLPB-B 


CRLPBB.P11 


1641 


—~ — —s — 
FIOSSIOSEGAAGLEF 
Cow NOW NP www WP 


004422 
004424 


004442 


004460 


004510 


004526 
004534 
004536 


004540 
004542 


004560 


004576 
004604 
004606 


004610 
004612 


004630 


26-SEP-80 


000004 
012737 


012737 


023737 


012737 


012737 


023737 
001401 
104001 


000004 
012737 


012737 


023737 
001401 
104001 


000004 


012737 


012737 


023737 
001401 
104001 


AAI -K 
13:52 


000020 


000220 


001124 


000000 


000200 


091124 


000100 


000300 


001124 


001000 


001200 


001124 


002000 


DIAGNOSTIC 
T22 
:*#TEST 23 
TS123: SCOPE 
001462 MOV 
++ MOV 
001124 MOV 
.* MOV 
001126 CMP 
BEQ 
ERROR 
001462 1$ MOV 
;* MOV 
001124 MOV 
.* MOV 
001126 CMP 
BEQ 
ERROR 
**TEST 24 
TST24: SCOPE 
001462 MOV 
:# MOV 
001124 MOV 
.* MOV 
001126 CMP 
BEQ 
ERROR 
s*TEST 25 
TST25: SCOPE 
001462 MOV 
.¢ MOV 
001124 MOV 
;* MOV 
001126 CMP 
BEQ 
ERROR 
:ATEST 26 
18126: SCOPE 
001462 MOV 


MACY11 306(1063) 
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TEST THAT MODE BIT 35 CAN BE SET 


pp eeerererareeeeretererereeteeerereKeRrinenenereeeteKereeeeeeeere 


TEST THAT EXT. DELAY (BIT 4) CAN BE SET AND CLEARED 


'WERRRRBRBRBARASBERRRASREASESLARRRRRRRR RARER RRRRRR RRR RRRRRRRRRRRAR SRS S SS | 


#BIT4,STMDAT ;LOAD STATUS 

STMDAT,a@STAT ;/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 
#BIT7!BIT4,$GDDAT ;LOAD EXPCTED 

AaSTAT,SBODAT ;/READ DEVICE REG STAT,PUT DATA IN S$BDDAT. 
SGDDAT,$BDDAT ; COMPARE 

1$ ;;BR IF SAME 

1 sERROR, EXT. DELAY BIT FAILED TO SET 
#0,S$TMDAT :CLEAR BIT 4 

STMDAT ,@STAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
#B117,$GDDAT ;LOAD EXPECTED 

@STAT,SBDDAT ;/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
SGDDAT,S$BDDAT ; COMPARE 

TST24 ;7BR IF SAME 

1 sERROR, EXT. DELAY BIT FAILED TO CLEAR 


+ eeeeeeeeeeeeneeeetetereeeeeeeteeeeneenenteenteneneteeeeeeeeeeee 


TEST THAT INTERRUPT ENABLE (BIT 6) CAN BE SET 


se eeeeeeaeekeeteererererreretteneteneneReRanetetaeneneateneeneees 


#BIT6,STMDAT 


STMDAT ,@STAT 
#BIT7!BIT6,$GDDAT 


;LOAD DISPLAY STATUS 


;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
;LOAD EXPECTED 
aSTAT,SBDDAT 


;/READ DEVICE Ry STAT,PUT DATA IN S$BDDAT. 
$GDDAT, $BDDAT ; COMPARE 


TST25 ;;BR IF EQUAL 
1 ;ERROR, STATUS NOT = 300 


Pp eeeeeereeeerereeereterereererteeteenenatenesateeeneneneeeeeeees 


TEST THAT CHANNEL (BIT 9) CAN BE SET 


pp eeeeeterereeeererereterereteretenenereraneeneaterenereneneeeense 


#B1T9,STMDAT ;LOAD DISPLAY STATUS 

STMDAT,a@STAT =; / PUT DATA FROM STMDAT TO DEVICE REG STAT 
#B1T9'BIT7,$GDDAT ;LOAD EXPECTED 

QSTAT.SBDDAT =; /READ DEVICE REG STAT, PUT DATA IN SBDDAT. 
SGDDAT,SBDDAT ; COMPA RE 

TS126 :;BR IF EQUA 

1 “ERROR, STATUS NOT = 1200 


*“@eeeeeeeeaeeeeeeeetetereeetteeteteereeeteetetaeteetteeeeesaetesaetaese 


TEST THAT STORE (BIT 10) CAN BE SET 


$ SSOHOSHSSHSSASSHSS SASS EHS SHOSoeSssesssogseolaseNseHseeseseesees 


#BIT10,STMDAT ;LOAD DISPLAY STATUS 


SEQ 0034 


MAINDEC-11-CRLPB-B 
CRLPBB.P11 


004700 


004716 
004724 
004726 


004730 
004732 
004750 


004766 
004774 
004776 


005000 
005002 
005006 
005012 


005030 


26-SEP-80 


012737 


023737 
001401 
104001 


000004 
012737 


012737 


023737 
001401 
104001 


000004 


012700 
005037 
012737 


012737 


023737 
001401 
104011 


000004 


012700 
012737 
012737 


105737 
100402 
104011 


AA11-K 
13:52 


002200 


001124 


004000 


004200 


901124 


001000 
001124 
000001 


000200 


001124 


001000 
000204 
000004 


001126 


J 
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126 TEST THAT STORE (BIT 10) CAN BE SET 
7* MOV STMDAT ,ASTAT / PUT DATA FROM $TMDAT TO DEVICE REG STAT 
001124 MOV #B1T10'BIT7, SGDDAT ;LOAD EXPECTED 
7* MOV Q@STAT,SBDDAT ; /READ gi fh A. STAT,PUT DATA IN S$BDDAT. 
001126 CMP SGDDAT,SBDDAT ; COMPARE 
BEQ TST2?7 ;;BR IF EQUAL 
ERROR 1 ;ERROR, STATUS NOT = 2200 
Ree eee Ree RHEE ATT TEE A ATER ETH RAAT ARE AeH Ae eeA KATE Ae eee 
TEST 27 TEST THAT WRITE THRU (BIT 11) CAN BE SET 
ee RRRARREREREEEHEA HERE TEETH AERA EREKERARARRHEK ERR Ee KEKE Tee 
1§127: SCOPE 
001462 MOV #B1T11,STMDAT ;LOAD DISPLAY STATUS 
;* MOV STMDAT ,ASTAT ;/ PUT DATA FROM $STMDAT TO DEVICE REG STAT 
001124 MOV #BIT11!BI1T7,$GDDAT ;LOAD EXPECTED 
;* MOV @STAT,SBDDAT ;/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
001126 CMP $GDDAT, SBDDAT ; COMPARE 
BEQ TST30 ;:BR IF EQUAL 
ERROR 1 ;ERROR, STATUS NOT = 4200 


001462 


007124 


001126 


001124 
001462 


Sete eeeeaeaeeeeeeeeeetereetteeeeeeReeeeeeneeetaneeeaearaenerenene 


** TEST 30 


TEST THAT INTENSIFY BIT SETS THAT THE READY BIT 


Sp eeerarakeereketerereteereteeteeerateneeeeteneatereneanaererenaees 


TST39: SCOPE 


; AND THEN SETS AFTER A DELAY 
#1000 ,R0 


;*TEST 31 


SGDDAT ;LOAD EXPECTED 

#B1TO,STMDAT > INTENSIFY 

STMDAT ,a@STAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
#BI1T7,$GDDAT ;LOAD EXPECTED 

@STAT,SBDDAT ;/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
SGDDAT,S$BDDAT 

TST31 ;;BR IF EQUAL 

11 ;READY FAILED TO SET AFTER A DELAY 


:1S STORAGE SCOPE CONNECTED BUT NOT TURNED ON ?? 


ee eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeteeeneneeeeerreeeeree 


TEST THAT MODE 1 (INTENSIFY ON DACO) SETS THE READY FLAG 


Sp eeeeeaeeeeeeeterereteeeeeterereeeenekeeeneneteeeeeeeeeeeeeeaeeese 


TST31: SCOPE 


; AND —, SETS IT 


#1000,R0 ;SET UP DELAY 
#81T7'BIT2,$GDDAT ;LOAD EXPECTED 
#8112, STMDAT ;LOAD MODE 1 


STMDAT ,@STAT ;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
@STAT,SBDDAI ;/READ DEVICE REG STAT,PUT DATA IN S$BDDAT. 
SBDDAT ; TEST READY 

2$ ;:BR IF READY STILL SET 

11 ;ERROR, IN MODE 1 READY SHOULD NOT 


: CLEAR UNTIL DACO IS LOADED 


SEQ 0055 


serene cine 
- —_—< ae ee - . 


MAINDEC 


=11-CRL 
P11 


CRLPBB.P1 


el ce eed aed etd 2d — ed eed ed ot od oe DD WD —D —_ 2 3 —3 


SNA RR SNS NS SONS NSO ONO SN SONS SSNS OS OS 
OOD we we ew NOU EWN YS S| ~ O OONOUEWw~ Nw "OO 


—> ad aed oe’ od od = 
ype! epee gf th thet ephes! 4 ¥ 4 


LA 
Ww" 


005132 


005134 
005142 


005170 


005204 


005206 
005210 


005214 
005222 


005250 


PB-B 
26-SEP-80 


000425 


012737 
012737 


105737 


104011 


000004 


012700 
012737 
012737 


105737 
100402 
104011 


000425 


012737 
012737 


105737 


AA11-K 
13:52 


000004 
000000 


001126 
000204 


001000 
000210 
000010 


001126 


000010 
000000 


001126 
000210 


010000 
000010 


014632 
002000 


010000 


t 3 
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;/ PUT DATA FROM STMDAT TO DEVICE REG DACO 
;/READ DEVICE REG STAT,PUT DATA IN S$BDDAT. 


;ERROR, READY FAILED TO SET 
; AFTER MODE 1 OPERATION 


;/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 


;/READ DEVICE REG STAT,PUT DATA IN S$BDDAT. 
TEST READY 


;ERROR, IN MODE 2 READY SHOULD NOT CLEAR 
;UNTIL DAC1 IS LOADED 


;/ PUT DATA FROM $STMDAT TO DEVICE REG DAC! 
;/READ DEVICE REG STAT,PUT DATA IN S$BDDAT. 


;ERROR, READY FAILED TC SET 
; AFTER MODE 2 OPERATION 


TEST WHEN ERASE IS SET, READY BIT CLEARS AND SET AFTER DELAY 


DIAGNOSTIC 
131 TEST THAT MODE 1 CINTENSIFY ON DACO) SETS THE READY FLAG 
BH 1ST32 ;;BR TO SCOPE 
001124 2$: MOV #B1T2,$GDDAT sLOAD EXPECTED 
001462 MOV #0, STMDAT ;ADDRESS DAC 0 
-@ MOV STMDAT,aDACO 
3 MOV aSTAT,$BDDAT 
TSTB SBDDAT 
BM] TST32 > :;NEXT TEST 
001124 MOV #B1T7'BIT2,$GDDAT ;LOAD EXPECTED 
ERROR 11 
Ss eeeeeeenekeeeeeeeerererrerererereeetaeeeReeeKeeAeeneeneeeeeeeere 
s*TEST 32 TEST THAT MODE 2 (INTENSIFY ON DAC1) SETS THE READY FLAG 
S ;eeaeekeeeeetereeeteetereteeeereteeneeneeeeneneeeeenenaeeeeareeee 
TST32: SCOPE 
; AND THEN SETS IT 
MOV #1000,R0 sSET UP DELAY 
001124 MOV #BIT7'BIT3,$GDDAT ;LOAD EXPECTED 
001462 MOV #BIT3,STMDAT :LOAD MODE 2 
:¢ MOV STMDAT,@STAT 
;* MOV aSTAT,$BDDAT 
TSTB SBDDAT : 
BM] 2$ ;;BR IF SET 
ERROR 11 
BR TST33 ;;BR TO SCOPE 
001124 2%: MOV #B1T3,$GDDAT ;sLOAD EXPECTED 
001462 MOV #0,STMDAiI sADDRESS DAC1 
;* MOV STMDAT,a@DAC1 
;* MOV @aSTAT,SBDDAT 
TSTB SBDDAT 
BM] TST33 ::NEXT TEST 
001124 MOV #BIT7'BI1T3,$GDDAT sLOAD EXPECTED 
ERROR 11 
PS eeaaeeeeeeeeeeeeeeeereeeeeeereeeeeeeetetaKeneeeeeereteeneeeeesse 
s*TEST 33 
ss eeakeeaeeeeereeeeeeeeererteerreeeeenaeaaeeteneResaeeeeeereeeses 
TST33: SCOPE 
173574 BIT #B1T12,aSWR :TEST BIT 12 
BEQ TST34 : ;BYPASS IF NO STORAGE SCOPE 
MOV #10,R0 
CLR TEMP :CLEAR DELAY 
001462 MOV #BIT10,STMDAT :SET STORE MODE 
;e MOV STMDAT, @STAT 
001462 BIS #B1T12,STMDAT :SET ERASE BIT 


;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 


MAINDEC-11-CRLPE-B 
CRLPBB.P11 


—_ 


“NNN NSN NSN OOO 
PWN ae 
moO OONY Yow 


—b ad aed od ®t ed —_ —* ll ed cd oe | 
aN SR RR SSNS OO NNN OOS SRR ASSO ONS 
QAO OWNS YU VIP WW a VU ee 
WN —]~—OOO@~ NOw~ we ~~ UI FwWwnw~ -OOoOm 


LS SSLVSSE 


—> . —* 2d od > od —_— 
ete Re ie 
Now~Goan~ 

wo —~—" OO ~~ 


_ 


005412 


005422 


005442 


005444 
005446 


005464 
005472 


005506 
005514 
005516 


005520 
005522 


26-SEP-80 


105737 


104011 


000004 
012737 


012737 
004757 


023737 
001401 
104001 


000004 
012737 


012737 
004737 


AA11-K 
13:52 


001462 
014632 


000036 


000200 
021700 


001124 


007100 


000200 
021700 


001124 


001000 
177777 


001124 
021700 


001124 


DIAGNOSTIC 
133 


601462 


001124 


001126 


001462 


001124 


001126 


173334 
001462 


001126 


TST34: 


. 2 
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TEST WHEN ERASE IS SET, READY BIT CLEARS AND SET AFTER DELAY 


MOV 


ERROR 


STMDAT,@STAT 


@STAT,STMDAT 
STMDAT 


(SWi2=1) 
;/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 


;/READ DEVICE REG STAT,PUT DATA IN $STMDAT. 
;;BR IF SET 


iD 
:;BR IF NOT READY 
:DECREMENT COUNTER 
:;BR IF NOT DONE 
sERROR, ERASE CLEARED READY AND FAILED 
>TO SET READY AFTER A DELAY 


;SWR 12 = 1 AND NO STORAGE SCOPE CONNECTED ?? 


SERA AAE AREA E AEA RA AEE EARETE TERE RARER AAERAARAAERATA TARE RAS 


-*TEST 34 


'WERARBBBREREBRESZAALAASLAERASESLARARRAEARE RRR RRR RRR RRR RR RR RRR RRR RRAS SDS SD | 


#BITGIBITS!BIT2!BIT1,S$TMDAT 


TEST THAT RESET CLEARS MODE, EXT. DELAY AND FAST INTENISIFY BITS 


STMDAT ,@STAT 
#BI1T7,$GDDAT 
PC ,,SRESET 


@STAT,$BDDAT 
SGDDAT,SBDDAT 
ai 


;/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 
;LOAD EXPECTED 


:/READ DEVICE REG STAT,PUT DATA IN $BDDAT. 
; COMPARE 
;;BR IF EQUAL 


sERROR, RESET FAILED TO CLEAR STATUS REG 


MOR RESBEBBBRBELESZALLESESESASERR RR RRRRRRRRRRRRRRRRRR ARR RRR RR ERAS AE SD AS A | 


“TEST 35 


SARA AReeeAeeReKeeeteteereteeteteeeketaKKeteekaneneeeeeeenenenesse 


#BITITIBITIO!BIT9!BIT6,STMDAT 


TST35: 


SCOPE 
MOV 


ERROR 


TEST THAT RESET CLEARS INTERRUPT ENABLE, CHANNEL, STORE, WRITE THRU 


STMDAT ,aSTAT 
#B1T7,$GDDAT 
PC,SRESET 


aSTAT,$BDDAT 
SGDDAT,SBDDAT 
psi36 


:/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 
:LOAD EXPECTED 

:/READ DEVICE REG STAT. PUT DATA IN $BDDAT. 
: COMPARE 


»:BR IF EQUAL 
“ERROR, RESET FAILED TO CLEAR STATUS 


SeeeeeeeakeeeeeeeeeeeeeerreeeeeeeeeeeKeRtaeeekeeeeeenegereneeeese 


-*TEST 36 


ss RRA eeeeeeeeeeeeeeeeeeeteteterereraeeeteetegeeeteneneteneneeeee 


1ST36: 


SCOPE 


TEST THAT RESET CLEARS DACO REGISTER 


#SWO9,aSWR 
TS13?7 
#-1,STMDAT 
STMDAT,aDACO 
SGDDAT 
PC,,SRESET 


@DACO, SBDDAT 
SGDDAT, SBDDAT 
1$137 


(SwO9=0) 


; TEST 


IF BIT 9 IS SET 
;;BR IF SET 


;/ PUT DATA FROM $STMDAT TO DEVICE REG DACO 
;LOAD EXPECTED 


;/READ DEVICE REG DACO,PUT DATA IN SBDDAT. 
; COMPARE 
>;BR IF EQUAL 


SEQ 0037 


MAINDEC-11-CRLPB-B 


CRLPBB.P11 


~~ 
—> 
NN — ~~ 


SSS 5833 


Ee in tae tn on mh?) 


—\in—- wi i & 
eee eee ee 


005654 


005656 


005670 


005706 
005712 


005726 


005770 


26-SEP-80 


104002 


000004 
012737 


005037 
004737 


023737 
001401 
104003 


000004 
012737 


005037 
004737 


005737 
001401 
104004 


000004 
032777 
001023 
0127537 


005037 
004737 


AA11-K 
13:52 


001000 
177777 


001124 
021700 


001124 


001000 
177777 


001124 
021700 


001126 


001000 
177777 


001124 
021700 


001126 


001000 
003777 
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136 TEST THAT RESET CLEARS DACO REGISTER (SW09=0) 
ERROR sERROR, RESET FAILED TO CLEAR DAC O REGISTER 
S eee eeeakekekeeeeererereerererekteneakeneeateanatereeeeereserene 
;*TEST 37 TEST THAT RESET CLEARS DAC1 REGISTER (SWO9=0) 
SF RAAARAERAHARAERAAH eee eeeeeeeeeteKaKeKenaneeerererekeneneereees 
TST37: SCOPE 
173252 BIT #SWO09,aSwWR :TEST IF BIT 9 IS SET 
BNE TST40 : BR IF SET 
001462 MOV #-1,STMDAT 
;* MOV STMDAT,@DAC1 :/ PUT DATA FROM $TMDAT TO DEVICE REG DAC1 
CLR SGDDAT ;LOAD EXPECTED 
JSR PC ,SRESET 
;* MOV @DAC1, SBDDAT :/READ DEVICE REG DAC1,PUT DATA IN $BDDAT. 
001126 CMP SGDDAT,$BDDAT : COMPARE 
BEQ TST40 ;;BR IF EQUAL 
ERROR 3 sERROR, RESET FAILED TO CLEAR DAC1 REGISTER 
+ eRe eee eee eee eee eeeee eee eee eeeeeeeeekententeeteteneeeteererse 
:*TEST 40 TEST THAT RESET CLEARS DAC #2 REGISTER (SWO9=0) 
SERRA EERE AEAEAA AERA E AAA EA AERA ERAAAAREAAARAARERE ERA AAAETA ANE ES 
TST40: SCOPE 
173170 BIT #SWO9,aSWR ;TEST IF BIT 9 IS SET 
BNE TST41 : BR IF SET 
001462 MOV #-1,STMDAT ;LOAD THE REGISTER 
;* MOV STMDAT,@DAC2 -/ PUT DATA FROM $TMDAT TO DEVICE REG DAC2 
CLR SGDDAT ;CLEAR EXPECTED 
JSR PC,SRESET 
;* MOV @DAC2, $BDDAT :/READ DEVICE REG DAC2,PUT DATA IN $BDDAT. 
TST SBDDAT 
BEQ TST41 ::BR If CLEARED 
ERROR 4 sERROR, RESET FAILED TO CLEAR DAC #2 
PTITTTITITITITITIITTI TTT LT TTT iti iti titi titi ttt itt 
s*TEST 41 TEST THAT RESET CLEARS DAC #3 REGISTER (SWO09=0) 
fF RRMA AAAReHEeeAAAAAAAAA eee ee eeeeeKeAeKteeeaeeeKeaketaneeeaneenes 
TST41: SCOPE 
173110 BIT #SWO9,aSWR ;TEST IF BIT 9 IS SET 
BNE TST42 : BR IF SET 
001462 MOV #-1,STMDAT ;LOAD THE REGISTER 
;* MOV STMDAT,@DAC3 :/ PUT DATA FROM STMDAT TO DEVICE REG DAC3 
CLR SGDDAT ;CLEAR THE EXPECTED 
JSR PC ,SRESET 
;@ MOV @DAC3,$BDDAT :/READ DEVICE REG DAC3,PUT DATA IN SBDDAT. 
TST SBDDAT 
BEQ TST42 :;BR IF CLEARED 
ERROR 5 sERROR, RESET FAILED TO CLEAR DAC #3 
 eeeeneeeeeneeteeeeeeeeeeteereteeneeeeeteeeneeeeereeeteereretens 
 STEST 42 TEST THAT RESET SET DACO TO 4000 (SWO9=1) 
PETTITT TIT T TIT ITTt TTT iti titi t iii i tir 
TST42: SCOPE 
173030 BIT #SW09,aSWR TEST BIT 9 
BEQ TS1T43 ;;BR IF ELEARED 
001462 MOV #3777, STMDAT sLCAD DACO 


SEQ 0038 
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MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC 
CRLPBB.P11 26-SEP-80 13:52 T42 TEST THAT RESET SET DACO TO 4000 (SWO9=1) SEQ 0039 
(2) 
(2) 3 MOV STMDAT,a@DACO :/ PUT DATA FROM STMDAT TO DEVICE REG DACO 
(1) 006130 012737 004000 001124 MOV #4000, $GDDAT sLOAD EXPTECTED 
| ‘at 006136 004737 921700 JSR PC,SRESET 
| (2) ;* MOV @DACO,$BDDAT =; /READ DEVICE REG DACO,PUT DATA IN SBDDAT. 
(1) 006152 023737 001124 001126 CMP SGDDAT,SBDDAT ; COMPARE 
(3) 006160 001401 BEQ TST43 :;BR IF SAME 
(1) 006162 104002 ERROR sRESET FAILED TO SET DACO TO 4000 
818 SRR RR Ree RARE TERETE TET A TE TE TATA TAA e TAK ee eee ee Keer eeeeeee 
(4) :*TEST 43 TEST THAT RESET SET DAC1 TO 4000 (SwO9=1) 
(4) SRR A RARE EAE AAAAAAAKAKA KATA eee eee teeta Keeteetenteteetententes 
(3) 006164 000004 TST43: SCOPE 
(1) 006166 032777 001000 172744 BIT #SWO9,aSwR ;TEST BIT 9 
(3) 006174 001425 BEQ TST44 ;;BR IF CLEARED 
M 006176 012737 003777 001462 MOV #3777,STMDAT ;LOAD DAC1 
(2) ;* MOV STMDAT,@DAC1 :/ PUT DATA FROM STMDAT TO DEVICE REG DAC 
(1) 006214 012737 004000 001124 MOV #4000, $GDDAT sLOAD EXPTECTED 
3 006222 004737 021700 JSR PC ,SRESET 
(2) ;* MOV aDAC1,$BDDAT :/READ DEVICE REG DAC1,PUT DATA IN $BDDAT. 
(1) 236 023737 001124 001126 CMP SGDDAT,$BDDAT : COMPARE 
(3) 006244 001401 BEQ TST44 :;BR IF SAME 
(1) 006246 104003 ERROR 3 sRESET FAILED TO SET DAC1 TO 4000 
819 See eee eee ARATE ATTRA TATA TATE TEAK AAAAA AeA eee AeA eee eee 
(4) seTEST 44 TEST THAT RESET SET DAC2 TO 4000 (SwO9=1) 
(4) PECTS T Titi iii titi titi litt iit ili tir iti titi rir rire rrr ry 
(3) 006250 000004 TST44: SCOPE 
(1) 006252 032777 001000 172660 BIT #SWO9,aSWR ;TEST BIT 9 
(3) 006260 001425 BEQ TST45 ;;BR IF CLEARED 
Me 006262 012737 003777 001462 MOV #3777,STMDAT ;LOAD DAC2 
(2 | 
(2) ;* MOV STMDAT,aDAC2 :/ PUT DATA FROM $STMDAT TO DEVICE REG DAC2 
(1) 006300 012737 004000 001124 MOV #4000, $GDDAT ;LOAD EXPTECTED 
Yk, 006306 004737 021700 JSR PC,SRESET 
(2) ;* MOV @DAC2, SBDDAT :/READ DEVICE REG DAC2,PUT DATA IN $BDDAT. 
(1) 006322 023737 001124 00*126 CMP SGDDAT,S$BDDAT : COMPARE 
(3) 006330 001401 BEQ TST45 3 E 
(1) 006332 104004 ERROR 4 sRESET FAILED TO SET DAC2 TO 4000 
820 See eeeeeeeeeetedeeeteeeeereeeeeeneeeeeAteeeeteneteneeererereeee 
(4) :*TEST 45 TEST THAT RESET SET DAC3 TO 4000 (SWO9=1) 
(4) + eeReeeReReeeeeeeeeeeeeeeeeeeeeeeeeeeaeeeeeeeeeteeeteeeererenese 
(3) 006334 009004 TST45: SCOPE 
(1) 006336 032777 001000 172574 BIT #SWO9,aSWR :TEST BIT 9 
(3) 006344 0601425 BEQ TST4 ::BR IF CLEARED 
3H 006346 012737 003777 001462 MOV #3777, STMDAT *LOAD DAC3 
(2) ;e MOV STMDAT,@DAC3 :/ PUT DATA FROM STMDAT TO DEVICE REG DACS 
(1) 006364 012737 064000 001124 MOV #4000, $GDDAT ;LOAD EXPTECTED 
O, 000372 0047 021700 JSR PC ,SRESET 
(2) ie MOV @DAC3,SBDDAT :/READ DEVICE REG DACS,PUT DATA IN $BDDAT. 
(1) 006606 023737 001124 001126 CMP SGDDAT,SBDDAT : COMPARE 
(3) 006414 001401 BEQ TS146 ;;BR IF SAME 
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104005 


000004 


012737 


105237 


012700 


105737 


000414 
012737 


023737 
001401 
104011 


000004 


002000 
000020 


001462 


000000 


001462 


000020 


001124 


002000 
000020 


000000 
001462 


001464 


000220 


DIAGNOSTIC 
145 


172510 
001462 


001124 


001126 


172354 
001462 


001124 


WRARRRBRRBRBABARABRAARABRARSAARRRRAAR RR RARER RRR RRRRAR RRR RRR R RAR ARR D DS SA A | 


ERROR 


“eTEST 46 


TST46: 


MRRP RRRBRARBEBBRARERERARALASESARESE SEER RR RRR RRR RR RRR RRRAR ARAB RAD SD SD DD 


SCOPE 
BIT 


=*TEST 47 


TST47: 


—>® « 
Med 


5 


TEST THAT EXTERNAL DELAY DOES NOT SET DISPLAY READY 


'WRARBRBRBBRRBRBARAARSASRRASASARSARRRRRARR RRR RRRRR RRR RRRRRRRRARARARAA AS DS | 


;TEST IF Sw 10 IS SET 
;;BR IF EXT. DELAY SWITCH IS SET 
;LOAD EXT. DELAY ENABLE 


#SW10,aSWR 
TST47 

#BIT4 ,STMDAT 
STMDAT,a@STAT 
QSTAT,STMDAT 
STMDAT 
STMDAT,@STAT 
#0,R0 
@STAT,STMDAT 
STMDAT 

2$ 

RO 


1$ 
TST47 
#B1T4,$GDDAT 


a@STAT,S$BDDAT 


SGDDAT,SBDDAT 
TST47 


11 


TEST THE EXTERNAL DELAY DOES SET DISPLAY READY SwWI10=1 


REA AEAARERAERAAAAAAAAAAAAAA AERA AAAARAAARAAAARARARAAAAAAAARARA AAAS 


#SW10,aSWR 
TST50 
#B1T4,STMDAT 
STMDAT @STAT 
#0,R0 

STMDAT 
STMDAT,@STAT 


@STAT,STMDAT 
STAT 


$ 
RO 


(S$ 


- ae ae 
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TEST THAT RESET SET DAC3 TO 4000 wO9=1) 


;RESET FAILED TO SET DAC3 TO 4000 


$W10=0 


;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
;/READ DEVICE REG STAT,PUT DATA IN $STMDAT. 


;/ PUT DATA FROM $ 


;LOAD DELA 


TMDAT TO DEVICE REG STAT 
Y 


:/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 
;BR IF SET 
; DELAY 

:BR IF NOT FINISHED 
;LOAD EXPECTED 
:/READ DEVICE REG STAT,PUT DATA IN S$BDDAT. 


;;BRANCH IF EQ 
XT. DELAY CAUSED READY TO SET 


7E 
:WHEN THE OPERATOR (VIA SW10) SAID NO EXT. DELAY WAS CON 


-:BR IF CLEARED 


; /READ 


1$ 
#BIT7'BIT4,$GDDAT 


| Sehichemeeaat 


sTEST SR BIT 10 


;ENABLE EXT. DELAY 
;/ PUT DATA FROM STMDAT TO DEVICE REG STAT 


;LOAD C 


OUNT 


ER 


;ENABLE DISPLAY 
;/ PUT DATA FROM STMDAT TO DEVICE REG STAI 


;BR IF DONE 
; DELAY 


:DEL 
;BR IF NOT DONE 
;LOAD EXPECTED VALUE 


;/READ DEVICE REG STAT,PUT DATA IN S$BDDAT. 


EXT. DELAY FAILED TO SET READY 


DEVICE REG STAT,PUT DATA IN STMDAT. 


SEQ 0040 


C 4 
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CRLPBB.P11 26-SEP-80 13:52 TEST THE EXTERNAL DELAY DOES SET DISPLAY READY Swi0=1 


1859 ;WHEN THE OPERATOR (VIA SW 10=1) SAID AN EXT. 
¢ 006666 004737 021700 2$: JSR PC,SRESET ;ENSURE CLEARED AA11-K 


DIAGNOSTIC 
14? SEQ 0041 


DELAY WAS 


S ;eeaakeeeareneeeerererereeerereteeteneeereteeneeetenenereReereee 


62 
3) ;*TEST 50 DETERMINE IF MORE AA11-K°S REMAIi: TO BE TESTED 
3) SERRA HHRHARAKERAHT ATA A TAHA eee tee Hee eeeeeeteeeeeeeenerereeeetee 
(2) 006672 000004 TST50: SCOPE 
1863 006674 004737 021700 JSR PC,SRESET 
1864 006700 005237 001204 INC SUNIT ;MORE UNITS? 
1865 006704 123737 001204 014642 CMPB yn. EVER 
1866 006712 001431 BEQ SEOP ;;BR IF NONE 
1867 006714 063737 001454 001464 ADD VADDR,STAT ;UPDATE ADDRESS 
1868 006722 063737 001454 001466 ADD VADDR ,DACO 
1869 006730 063757 001454 001470 ADD VADDR ,DAC1 
1870 006736 063737 001454 001472 ADD VADDR ,DAC2 
1871 006744 063737 001454 001474 ADD VADOR ,DAC3 
1872 006752 063737 001456 001476 ADD VVECT, IV ;UPDATE VECTOR 
1873 006760 063737 001456 001500 ADD VVECT, IVS 
1874 006766 005037 001102 CLR $TSTNM 
+ 48 006772 000137 002542 JMP LTEST ;TEST ANOTHER AA11-K 
"he ~SBTTL END OF PASS ROUTINE 
(2) s RRARRERERHEHERER EAHA KA KARAT e KAKA eee Ke Ate eeeeeeterenenetet 
(1) >t INCREMENT THE PASS NUMBER ($PASS) 
(1) s*TYPE “‘END PASS @XXXxXX'" (WHERE XXXXX IS A DECIMAL NUMBER) 
(1) ;*1F THERES A MONITOR GO TO IT 
at :*IF THERE ISN'T JUMP TO MTEST 
(1) 006776 SEOP: 
(1) 006776 000004 SCOPE 
(1) 007000 005037 001102 CLR STSTNM +3 ZERO THE TEST NUMBEF 
(1) 007004 005237 001200 INC SPASS ; INCREMENT THE PASS NUMBER 
(1) 607010 042737 100000 001200 BIC #100000,$PASS 3; DON’ T ALLOW A NEG. NUMBER 
(1) 007016 005327 DEC (PC)+ 3 P? 
(1) 007020 000001 SEOPCT: .WORD 1 
(1) 007022 003022 BGT SDOAGN ;: YES 
(1) 007024 012737 MOV (PC)+,a(PC)+ ; RESTORE COUNTER 
(1) 007026 000001 SENDCT: .WORD 1 
(1) 007030 007020 SEOPCT 
(1) 007032 104401 007077 TYPE SENDMG ; TYPE ‘‘END PASS # 
(2) 007036 013746 001200 MOV $PASS,-(SP) S SAVE SPASS FOR TYPEOU 
(2) 007042 104405 TYFDS ::G0 TYPE--DECIMAL ASCII WITH SIGN 
(1) 007044 104401 007074 TYPE , SENULL ;; TYPE A NULL CHARACTER 
(1) 007050 013700 000042 $GET42: MOV a#42,R0 ::;GET MONITOR ADDRESS 
(1) 007054 001405 BEQ SDOAGN ;;BRANCH IF NO MONITOR 
(1) 007056 RESET :: CLEAR THE WORLD 
(1) 7060 004710 SENDAD: JSR PC, (RO) ;:G0 TO MONITOR 
(1) 007062 000240 NOP >; SAVE ROOM 
(1) 007064 000240 NOP 77 FOR 
(1) 007066 900240 NOP >; ACTI1 
(1) 007070 SDOAGN: 
(1) 007070 000137 JMP a(PC)+ ; RETURN 
<1) 007072 002360 SRTNAD: .WORD MITEST 
(1) 007074 377 377 000 SENULL: .BYTE <-1,-1,0 ;;NULL CHARACTER STRING 
(1) 0070 015 042412 042116 SENDMG: .ASCIZ <15><{2>/END PASS #/ 


D 4 
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CRLPBB.P11 26-SEP-80 13:52 END OF PASS ROUTINE 


(1) 007104 050040 051501 020123 


SEQ 0042 


(1) 007112 000043 
1886 007114 012706 001100 VISUAL: MOV #STACK,SP sLOAD SP 
1887 007120 005737 014644 TST EVER “TEST IF TYPED ONCE 
1888 007124 001006 BNE PICO “BR IF YES 
1889 007126 104401 TYPE 
1890 007130 013103 MES6 -HEADER ABOUT SCOPE ADJ. 
1891 007132 104401 TYPE 
1892 007134 013133 MES15 -TEXT ABOUT SWR 
1893 007136 005237 014644 INC EVER SET FLAG 
1894 “SBTTL DISPLAY HORIZONTAL LINE 
1895 007142 013737 001466 007230 PICO: MOV DACO, ROX 
1896 007150 013737 001470 007232 MOV DACT_RIY 
1897 007156 032777 000C10 171754 BIT #S5W03,aSwWR :TEST SR BIT 3 
1898 007164 001406 BEQ 2$ “BR IF DAC #0 AND #1 
1899 007166 013737 001472 007230 MOV DAC2,ROX “USE DAC #2 AND 3 
1900 007174 013737 001474 007232 MOV DAC3,RIY 
1901 007202 012737 000005 014630 2%: MOV #5, TICKS -LOAD TIMER FOR CP TYPE 
1902 007210 004737 012354 JSR PC CHTIME “CHANGE TIMER FOR CP TYPE 
1903 007214 004737 007330 1$: JSR PC PBB 
1904 007220 004737 012246 JSR PC TIMER :DONE ? 
1905 007224 000773 BR 1$ 
1906 007226 000405 BR PIC1 
1907 007230 090000 ROX WORD 0 
1908 007232 000000 R1Y¥:  . WORD 0 
1909 007234 000000 ROY: . WORD 0 
1910 007236 000000 Rix: . WORD 0 
1911 607240 000000 R2Y: . WORD 0 
1912 "SBITL DISPLAY A VERTICAL LINE 
1913 007242 013737 001470 007230 PIC1: MOV DAC1, ROX 
1914 007250 013737 001466 007232 MOV DACO.R1Y 
1915 007256 032777 000010 171654 BIT #SW03,aSWR -TEST SR BIT 3 
1916 007264 001406 BEQ 2$ “BR IF DAC #0 AND 1 
1917 007266 013737 001474 007230 MOV DAC3, ROX “USE DAC #2 AND 3 
1918 007274 013737 001472 007232 MOV DAC2.R1Y 
1919 0C7302 012737 000005 014630 23: MOV #5. TICKS :LOAD TIME 
1920 007310 004737 012354 JSR PC ,CHTIME : CHANGE TIMER FOR CP TYPE 
1921 007314 004737 007330 1$: JSR PC PBB 
1922 007320 004737 012246 JSR PC TIMER :DONE ? 
1923 007324 000773 BR 1$ 
1924 007326 000516 BR PIC3 
1925 007330 012737 000000 001462 PBB: MOV #0, $TMDAT 
(1) 2@ MOV STMDAT, aSTAT :/ PUT DATA FROM $STMDAT TO DEVICe REG STAT 
1927 007346 032777 002000 171564 BIT #SW10,aSWR -TEST IS SW10 =1 
1928 0077°4 001413 BEQ 10% “BR IF NOT 
(1) ;t MOV @STAT,STMDAT :/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
1930 007366 052737 000020 0061462 BIS #BITG,STMDAT 
(1) -* MOV STMDAT,a@STAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
1932 0074046 013704 001464 10$: MOV STAT RG 
1933 007410 012703 007777 MOV #7777 RB >SET HIGH LIMIT 
1934 007414 012702 000001 MOV #1,R2 “INITIALIZE INCREMENTS BETWEEN POINTS 
1935 007420 032777 001000 171512 BIT #S5WO9,aSwWR “TEST Sw 9 = 1 
1936 007426 001042 BNE 2$ “BR IF YES 


MAINDEC-11-CRLPB-B 
CRLPBB.P11 


— 


o-ovovowvowvo--00o0-o- OO 0 
MAS NE HE Leae kre Le Fr 


=~ OODNAY NEY Wen Oo 


=) 


007430 


007446 
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007510 


007524 


007534 


007562 


007564 


007602 


007674 


007722 
007724 


007750 
007754 
007762 
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012737 
012737 


060237 


005237 
023703 


012737 


000740 
012737 


012737 


012737 


000412 
005037 


012700 
032777 
001413 
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13:52 

000400 
000000 


001462 


001124 


001462 


000000 


000000 


000010 


000010 
001472 


001000 


004000 


001462 


900377 
002000 


DIAGNOSTIC 
DISPLAY 


001462 


001462 


001462 


001462 


014630 
007236 
007240 
171302 
007236 
007240 
171246 


001462 


171156 


1$: 
P3: 


2$ 
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A VERTICAL LINE 


MOV 


MOV 
MOV 


MOV 
ADD 


MOV 


* MOV 
DRAW BOTTOM LIN 
: MOV 


BIT 
BEQ 


#400, $TMDAT 


STMDAT,aRIY 
#0,STMDAT 


STMDAT ,aROX 
R2,$TMDAT 


STMDAT, aROX 
ASTAT, SGDDAT 
$GDDAT 
S$GDDAT, aSTAT 
STMDAT.R3 

1$ 

PC 

#0, $TMDAT 
STMDAT,aRIY 
STMDAT ,@ROX 
PINCUSHION TEST 
#0,$TMDAT 
STMDAT,aSTAT 
#10, TICKS 
PC, CHTIME 
DACO,R1Xx 
DAC1.R2Y 
#5W03,aSwWR 
1$ 

DAC2,R1X 
DAC3,R2Y 
STAT,RS 
#20,R4 
#su09, asur 
#4000, $TMDAT 
STMDAT,aR1Xx 
STMDAT, aR2Y 
2$ 

STMDAT 
STMDAT,aR1Xx 
STMDAT ,@R2y 


#377.R0 
#5W10,aSwR 
p3A 


;/ PUT DATA FROM STMDAT TO DEVICE REG RIY 


;/ PUT DATA piece TO DEVICE REG ROX 


; INCREME 


;/ PUT DATA FROM $TMDAT TO DEVICE REG ROX 
;/READ DEVICE REG STAT,PUT DATA IN $GDDAT. 


;/ PUT DATA FROM $GDDAT TO DEVICE REG STAT 
;DONE ALL POINTS? 


;NO 


;LOAD TWO"S COMP. 


3/ PUT DATA FROM S$TMDAT 


;/ PUT DATA FROM $STMDAT 
(DISPLAY SQUARE) 


;/ PUT DATA FROM $TMDAT 


;TEST SR BIT 3 
;BR IF DAC #0 AND 1 
;USE DAC #2 AND 


;TEST BIT 9 
;LOAD TWO'S 
;/ PUT DATA 
;/ PUT DATA 
;CLEAR AXIS 
;/ PUT DATA 
:/ PUT DATA 


COMP ORIGIN 
FROM STMDAT 
FROM STMDAT 


FROM STMDAT 
FROM STMDAT 


sTEST IF SwW10 =1 
;BR IF NOT 


TO DEVICE 
TO DEVICE 


TO DEVICE 


TO DEVICE 
TO DEVICE 


TO DEVICE 
TO DEVICE 


ORIGIN 
REG RIY 
REG ROX 


REG STAT 


REG RIX 
REG R2Y 


REG RIX 
REG R2Y 
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010046 


010062 
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052737 


060437 


005237 


005300 
091352 


012700 


060437 


0052357 


005300 
001352 


012700 


160437 


005237 


005300 
001352 


012700 


1604 37 
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040000 


001462 


001462 


000377 


001462 


001462 


000377 


001462 


001462 


000377 


001462 


DIAGNOSTIC 
;# MOV 
001462 BIS 
;* MOV 
PSA: 
;* MOV 
ADD 
hd MOV 
;* MOV 
INC 
;® MOV 
DEC 
BNE 
;DRAW RIGHT LINE 
MOV 
P3B: 
,* MOV 
ADD 
-* MOV 
7° MOV 
INC 
;* MOV 
DEC 
BNE 
;DRAW TOP LINE 
MOV 
PSC: 
;@ MOV 
SUB 
;* MOV 
;* MOV 
INC 
;f MOV 
DEC 
BNE 
;DRAW LEFT LINE 
MOV 
P3D: 
se MOV 
SUB 


QaSTAT,STMDAT 


#BIT14 ,STMDAT 


STMDAT STAT 
QR1X,STMDAT 
R4,STMDAT 

STMDAT,aRiX 


Q@STAT,STMDAT 
STMDAT 


STMDAT,@STAT 


QR2Y,STMDAT 
R4,STMDAT 


STMDAT,AR2Y 
@STAT,STMDAI 
STMDAT 
STMDAT,@STAT 


RO 
P3B 


#377,R0 
QR1X,STMDAT 
R4,STMDAT 
STMDAT ,aR1Xx 


@STAT,STMDAT 
STMDAT 


STMDAT,@STAT 


RO 
P3C 


#377,R0 


QR2Y ,STMDAT 
R4,STMDAT 


F 4 
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PINCUSHION TEST (DISPLAY SQUARE) 


| SEQ 0044 
»/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 


;/ PUT DATA FROM S$TMDAT TO DEVICE REG STAT 
;/READ DEVICE REG R1X,PUT DATA IN STMDAT. 


:/ PUT DATA FROM $TMDAT TO DEVICE REG RIX 
:/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 
:/ PUT DATA FROM $STMDAT TO DEVICE REG STAT 
sWAIT FOR READY 

;NO 


;/READ DEVICE REG R2Y,PUT DATA IN STMDAT. 


:/ PUT DATA FROM STMDAT TO DEVICE REG R2Y 
>/READ DEVICE REG STAT,PUT DATA IN S$IMDAT. 
:/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 
sWAIT FOR READY 

:NO 


;/READ DEVICE REG R1X,PUT DATA IN $TMDAT. 


:/ PUT DATA FROM $STMDAT TO DEVICE REG RIX 
:/READ DEVICE REG STAT,PUT DATA IN STMDAT. 
:/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
;WAIT FOR READY 

:NO 


;/READ DEVICE REG R2Y,PUT DATA IN $SIMDAT. 


oo Le, ETE LTTE ET 
a 
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CRLPBB.P11 26-SEP-80 13:52 PINCUSHION TEST (DISPLAY SQUARE) SEQ 0045 
2018 
it) vt MOV STMDAT, aR2Y :/ PUT DATA FROM $TMDAT TO DEVICE REG R2Y 
(1) ;* MOV aSTAT,STMDAT ;/READ DEVICE REG STAT,PUT DATA iN STMDAT. 
2020 010266 005237 001462 INC STMDAT 
2539 ;* MOV STMDAT,@STAT :/ PUT DATA FROM S$TMDAT TO DEVICE REG STAT 
2023 sWAIT FOR READY 
2024 010302 005300 DEC RO 
2025 010304 001352 BNE P3D :NO 
2026 010306 004737 012246 JSR PC TIMER 
2027 010312 000401 BR 1$ 
2026 010314 000402 BR PIC4 
2029 010316 000137 007664 1$: JMP pz 
Sy .SBTTL PLOT AN X 
33 
2032 010322 012737 000000 001462 PIC4: MOV #0, $TMDAT 
(1) ;* MOV STMDAT,aSTAT :/ PUT DATA FROM S$STMDAT TO DEVICE REG STAT 
2034 010340 012737 000010 014630 MOV #10, TICKS 
2035 010346 004737 012354 JSR PC,CHTIME ; CHANGE TIMER FOR CP TYPE 
2036 010352 013737 001466 007236 PIC4B: MOV DACO,R1X 
2037 010360 013737 001470 007240 MOV DAC1._R2Y 
2038 010366 032777 000010 170544 BIT #5W03,aSwWR -TEST SWR BIT 3 
2039 010374 001406 BEQ 1$ “BR IF DAC #0 AND 1 
2040 010376 013737 001472 007236 MOV DAC2,R1X “USE DAC #2 AND 3 
2041 010404 013737 001474 007240 MOV DAC3.R2Y 
2042 010412 013703 001464 1$: MOV STAT_R3 
2043 010416 012704 000004 MOV #4 RG 
2044 010422 032777 001000 170510 Pa: BIT #S5W09,aSwR -TEST BIT 9 
2045 010430 001414 BEQ: I$ 
2046 010432 012737 004000 001462 MOV #4000,STMDAT | 
mH ; MOV STMDAT,aR2Y :/ PUT DATA FROM $TMDAT TO DEVICE REG R2Y 
(1) 3 ;t MUV STMDAT,aRIX :/ PUT DATA FROM S$TMDAT TO DEVICE REG RIX 
2049 010460 000412 BR 2$ 
2050 010462 005037 001462 1$: CLR STMDAT 
2052 se MOV STMDAT,a@RIX :/ PUT DATA FROM STMDAT TO DEVICE REG RIX 
2053 ;e MOV STMDAT,aR2Y :/ PU" DATA FROM STMDAT TO DEVICE REG R2Y 
2054 -PLOT LINE BEGINNING IN LOWER LEFT CORNER 
2055 010506 012700 001777 $: MOV #1777.R0 
2056 010512 032777 002000 170420 BIT #SW10.aSWR “TEST IF Sw10 =1 
2057 010520 001413 BEQ PLA “BR IF NOT 
(1) :e MOV @aSTAT,. STMDAT :/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 
2059 010532 052737 000020 001462 BIS #BITG.$TMDAT 
(1 ;e MOV STMDAT,@STAT :/ PUT DATA FROM STMDAI TO DEVICE REG STAT 
2061 010550 POA: 


z* MOV @STAT,STMDAT ;/READ DEVICE REG STAT,PUT DATA IN SIMDAT. 


MAINDEC-11-CRLPB-B8 


CRLPBB.P11 
2062 010560 
2065 

(1) 
2064 

(1) 
2065 010604 
2066 

(1) 
2067 

(1) 
2068 
2069 010630 
2070 010632 
2071 
2072 010654 
2075 

(1) 
2074 010652 
2075 

(1) 
2076 010666 
2077 010672 

(1) 

(1) 
2078 010702 
2079 

(1) 
2080 

(1) 
2081 010726 
2082 

(1) 
2085 

(1) 
2084 010752 
2085 

(1) 
2086 010766 
2087 010770 
2088 010772 
2089 010776 
2090 011000 
2091 011004 


— ee ee ee 
. 


005237 


060437 


005300 
001346 


012737 


005037 


012700 


005237 


160437 


060437 


005300 


000137 


AA11-K DIAGNOSTIC 
26-SEP-80 13:52 PLOT AN 


001462 


001462 


007774 


001462 


001777 


001462 


001462 


001462 


012246 


007142 
010422 


001462 


1$: 


H 4 
“gard: 306(1063) 24-0CT-80 09:31 PAGE 4-26 


INC 
MOV 


MOV 
ADD 


MOV 
MOV 
DEC 


BNE 
;PLOT LINE BEGIN 
MOV 


MOV 
CLR 


MOV 
MOV 
MOV 
INC 
MOV 


MOV 
SUB 


STMDAT 
STMDAT, STAT :/ PuT 
aR2Y,STMDAT : /READ 
R4,STMDAT 
STMDAT,aR2Y :/ PuT 
STMDAT,aRiX 

:+4 T0 
RO 


DATA FROM $TMDAT TO DEVICE REG STAT 
DEVICE REG R2Y,PUT DATA IN $TMDAT. 


DATA FROM $TMDAT TO DEVICE REG R2Y 


;/ PUT DATA FROM $TMDAT TO DEVICE REG RIX 


x 


P4A ;NO 
NING IN UPPER LEFT CORNER 


#7774 ,STMDAT 


STMDAT,aR2Y :/ PuT 
STMDAT 

STMDAT,@R1X :/ PuT 
#1777,R0 

aSTAT,STMDAT : /READ 
STMDAT 

STMDAT,@STAT :/ PuT 
aR2Y,$TMDAT : /READ 
R4,STMDAT 

STMDAT,a@R2Y :/ PuT 
aR1iX,STMDAT : /READ 
R4,STMDAT 

STMDAT,aRIX :/ PuTl 
RO 

P4B :NO 
PC, TIMER 

1$ 

PICO 

P4 


DATA FROM $TMDAT TO DEVICE REG R2Y 


DATA FROM $TMDAT TO DEVICE REG RIX 


DEVICE REG STAT,PUT DATA IN STMDAT. 


DATA FROM STMDAT TO DEVICE REG STAT 
DEVICE REG R2Y,PUT DATA IN $STMDAT. 


DATA FROM $STMDAT TO DEVICE REG R2Y 
DEVICE REG R1X,PUT DATA IN $TMDAT. 


DATA FROM S$TMDAT TO DEVICE REG RIX 


SEQ 0046 


I 4 
MACY11 30G6(1063) 24-OCT-80 09:31 PAGE 5 


MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC 
CRLPBB.P11 26-SEP-80 13:52 PLOT AN X SEQ 0047 
2094 
2095 011010 000000 VCXTMP: 0 
2096 011012 000000 VCYTMP: 0 
2097 011014 000000 yPos: 0 -CONTAINS Y POSITION AT ANY GIVEN TIME 
2098 011016 000000 XPOS: 0 *CONTAINS X POSITION AT ANY GIVEN TIME 
2099 011020 000000 CHRCOL: 0 
2100 011022 000000 YPT: 0 
2101 
2102 
tt .SBTTL MANUAL DISPLAY ROUTINE 
2105 011024 PIC6: 
2106 011024 012706 001100 FULRMP: MOV #STACK,SP =LOAD POINTER 
2107 011030 004737 002014 JSR PC, LDTRAP :LOAD BUS ADDRESS 
2108 011034 032777 002000 170076 BIT #SW10,aSWR :TEST SR 10=1 
SI%6 011042 001413 BEQ 1$ :-BR IF NOT 
(1) : MOV aSTAT, STMDAT :/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 
aah 011054 052737 000020 001462 BIS #BIT4,STMDAT 
(1) + MOV STMDAT, a@STAT :/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 
2113 011072 013737 001466 007230 1$: MOV DACO, ROX :GET BUS ADDRESS 
2114 011100 004737 011144 JSR PC,10$ -LOAD THE RAMP ON DAC #1 
2115 011104 013737 001470 007230 MOV DAC1,ROX :GET BUS ADDRESS 
2116 011112 004737 011144 JSR PC,10$ *LOAD THE RAMP ON DAC #1 
2117. 011116 013737 001472 007230 MOV DAC2, ROX :GET BUS ADDRESS 
2118 011124 004737 011144 JSR PC,10$ -LOAD THE RAMP ON DAC #2 
2119 011130 013737 001474 007230 MOV DAC3,ROX -GET THE BUS ADDRESS 
2120 011136 004737 011144 JSR pc, 10$ “LOAD THE RAMP ON DAC #3 
$155 011142 000753 BR 1$ :BR BACK 
ee? 011144 005037 001462 10$: CLR STMDAT 
d ; 
(1) i MOV STMDAT, aROX :/ PUT DATA FROM $TMDAT TO DEVICE REG ROX 
sige 011160 062737 000010 001462 11$: ADD #10, $TMDAT 
(1) :* MOV STMDAT, a@ROX -/ PUT DATA FROM STMDAT TO DEVICE REG ROX 
2127 011176 005737 001462 TST STMDAT :TEST IF DONE 
2128 011202 001366 BNE 11$ -BR IF NOT 
2129 011206 004737 011410 JSR PC, ACTRLC -TEST FOR CTRL C 
2130 011210 000207 RTS PC sEXIT 
2131 011212 000240 NOP 
138 011214 000240 NOP 
size .SBTTL MANUAL LOGIC TEST 
2136 011216 012706 001100 MANUL: MOV #STACK,SP *LOAD STACK 
2137 011222 004737 002014 JSR PC,LDTRAP :LOAD BUS ADDRESS 
2138 011226 104401 TYPE 
2139 011230 014343 MANHE D 
2140 011232 004737 011410 1$: JSR PC, ACTRLC :TEST FOR CTRL C 
2141 011236 104407 CKSWR 
2142 011240 017700 167674 MOV aswr,RO :READ THE SWITCHES 
2143 011244 010001 MOV RO,R1 > COPY 
2144 011246 042700 017777 BIC #17777,RO “MASK OFF BITS 
2145 011252 001003 BNE 2$ -BR IF NOT DAC 0 


oo OOOO COOCOOCOCOOOCOCOoOoO 


—_— 
Om FHLOKWVIOLNVNALOSwos 


DPD AAA A MAMMAL & 


SSCSSR VS SSS SARAT ES SSVAAFAN USL SSGSARI FARIS SOLS ALANLS Sm 


el ee el mee ee me a at ot et et ot ot at Ot SM tS ot wt SM tS SO OS 
= 


POPPE PY RIAD PVP PIPDPYRS PO PIPIPYGAPINIPIMIPIMOPIMIPE PU MIPIM No MUP POPOP FU FE PUNO PERN Tnno fro fre nn nrr 


Ooooco°oc°o°ooo°o0 oO 
le ee ee ee ee a etd od ed = 
ee ee es ee ee ee ee heh UL hu 
MUA & & 

Nt Ph + RY 8 
MPO O Fh & 


PB-B 
26-SEP-80 


013702 


013702 
010137 
010237 


013703 
005303 
001376 
005037 
13703 
25305 
001376 
000711 


105777 


104401 


AA11-K DIAGNOSTIC 


13:52 

001466 
020000 
001470 
040000 
001472 
060000 
001474 
001464 
001124 
001136 
001460 
001124 


001460 


167530 
167524 
177600 
000003 


002546 


167466 


167462 
177600 
000003 


002346 
000040 


011450 
011450 
011450 


MANUAL LOGIC TEST 


MOV DACO,R2 
BR 1 
2$: CMP #B1T13.RO 
BNE 
MOV DAC1,R2 
BR 1 
3$: CMP #BIT14,RO 
BNE 4$ 
MOV DAC2,R2 
BR 10$ 
4$: CMP #B1T14'B1T13,R0 
BNE 5$ 
MOV DAC3,R2 
BR 10$ 
5$ MOV STAT. R2 
10$: MOV R1,$GDDAT 
MOV R2,$BDDAT 
* MOV $GDDAT, aSBODAT 
MOV DELAY,R3 
11$: DEC R3 
BNE 11$ 
CLR $GDDAT 
.t MOV $GDDAT, aSBDDAT 
MOV DELAY, R3 
128: DEC R3 
BNE 12$ 
BR 1$ 
-TEST FOR CTRL C <= DONT WAIT 
ACTRLC: TSTB = aS TKS 
BPL 1$ 
MOV asTKB,10$ 
BIC #177600, 10% 
CMP #3,10$ 
BNE 1$ 
JMP CTRLC 
1$: RTS PC 
10$: 0 
-WAIT FOR A “SPACE CHARACTER 
CSPACE: TSTB aSTKS 
BPL CSPACE 
MOV asTKB. 10% 
BIC #177600, 10% 
CMP #3,10$ 
BNE 1 
JMP CTRLC 
1$: CMP #40, 10% 
BNE 2% 
RTS PC 
2$: TYPE 


J 4 
MACY11 306(1063) 24-0CT-80 09:31 


PAGE 5-1 


;LOAD DAC 0 BUS ADDRESS 
;TEST FOR DAC 1 
:BR IF NOT 

:LOAD DAC 1 BUS 
:TEST FOR DAC 2 
;BR IF NOT 

sLOAD DAC 2 BUS 
:TEST FOR DAC 3 
:BR IF NOT 

;LOAD DAC 3 BUS ADDRESS 


;LOAD STATUS REG. BUS ADDRESS 


ADDRESS 


ADDRESS 


:/ PUT DATA FROM $GDDAT TO DEVICE REG S$BDDAT 
:PRESET THE DELAY 
; DELAY 
;CLEAR THE REGISTER 

:/ PUT DATA FROM $GDDAT TO DEVICE REG S$BDDAT 


;LOAD THE PRESET 
;DELAY 


: INPUT FLAG ? 
:NO 
;READ THE CHARACTER 


;TEST FOR CTRL C 
;BR IF NOT 


sEXIT 


;WAIT FOR CHAR 
;READ CHAR 
>MASK 
>TEST FOR CTRL C 


:TEST FOR SPACE 
sEXIT 


MAINDEC-11-CRLPB-B 


CRLPBB.P11 
2200 011524 
2201 011526 
2202 
2203 011530 
2204 
2205 
2206 
2207 011532 
2208 011536 
2209 011542 
2210 011544 
2211 011550 
2212 011554 
2213 

(1) 
2214 

(1) 
2215 

(1) 
2216 

(1) 
2217 011620 
2218 
2219 
2220 
2221 011622 
2222 011626 
2223 011632 
2224 011634 
2225 011640 
2226 011644 
2227 011650 
2228 011652 
2229 011656 
2230 
2231 011660 

(1) 

(1) 
2232 

(1) 
2233 

(1) 
2234 

(1) 
2235 011720 
2236 011724 
2237 011726 
2238 011730 
2239 
2245 
2246 
2247 011732 
2248 011734 
2249 011742 
2250 011744 


26-SEP-80 


014105 
000751 


000000 


012706 


010037 


000750 


012706 


000765 


AA11-K DIAGNOSTIC 


13:52 


001100 
002014 


011410 


167364 
001462 


001100 
002014 


011410 
167274 
011660 


011660 


000020 


000040 


167176 


002000 001462 


10$: 


CALDAC: 


1$: 


DYNCAL: 


1$: 


CLRVC: 


MACY11 306(1065) 
MANUAL LOGIC TEST 


QMARK 
BR 
0 


CSPACE 


K 4 
24-OCT-80 09:51 


PAGE 5-2 


~SBTTL MANUAL DAC CALIBRATION 


#STACK,SP 
PC,LDTRAP 


PC ,ACTRLC 
aSwR ,RO 
RO,STMDAT 
STMDAT ,aDACO 
STMDAT,a@DACl 
STMDAT,@DAC2 


STMDAT ,aDAC3 
1$ 


;LOAD STACK POINTER 
;LOAD BUS ADDRESSES 
;TEST FOR CTRL G 
;TEST FOR CTRL C 
;READ SWITCHES 
;LOAD DAC #0 


;/ PUT DATA FROM S$TMDAT TO DEVICE REG DACO. 
;/ PUT DATA FROM STMDAT TO DEVICE REG DACI 
;/ PUT DATA FROM $TMDAT TO DEVICE REG DAC2 
;/ PUT DATA FROM $TMDAT TO DEVICE REG DAC3 


DYNAMIC DAC CALIBRATION 


#STACK,SP 
PC,LDTRAP 


PC ,ACTRLCE 
aSwR,RO 
PC,10$ 

RO 

PC,10$ 

1$ 


STMDAT ,aDACO 
STMDAT ,@DAC! 
STMDAT ,aDAC2 
STMDAT ,@DAC5 
© 0 


RO 
11$ 
PC 


;LOAD STACK POINTER 

;LOAD BUS ADDRESSES 

;TEST FOR CTRL G 

;TEST FOR CTRL C 

sREAD SwWR 

;LOAD THE SWR VALUE TO ALL DACS 
;CLEAR RO 

;LOAD ALL DAC'S WITH 0 


;/ PUT DATA FROM S$STMDAT TO DEVICE REG DACO 
;/ PUT DATA FROM STMDAT TO DEVICE REG DAC! 
;/ PUT DATA FROM STMDAT TO DEVICE REG DAC2 
;/ PUT DATA FROM $STMDAT TO DEVICE REG DACS 


;LOAD DELAY COUNTER 
;DELAY 

sWALT 

sEXIT 


SUBROUTINE TO ERASE STORAGE SCOPE SCREEN 


#B1TS,aSwR 


#BI1T10,STMDAT 


‘TEST SR BIT 5 
R IF NOT A STORAGE SCOPE 
ERASE THE SCREEN 


SEQ 0049 


L 6 
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BB.P11 26-SEP-80 13:52 SUBROUTINE TO ERASE STORAGE SCOPE SCREEN SEQ 0050 
3959 ;e MOV STMDAT,a@STAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
(1) ;* MOV aSTAT,STMDAT :/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 
2255 011772 052737 010000 601462 BIS WBITI1C,$TMDAT 
fee | :¢ MOV STMDAT, aSTAT :/ PUT DATA FROM $TMDAT TO DEVICE REG STAT 
-— 2255 012010 012700 000020 MOV #20,R0 -SET UP DELAY 
— 2256 012014 005001 CLR RI 
2257 012016 032777 Q000460 167114 18: BIT #BITS,aSwR ;TEST IF NOT STORAGE SCOPE 
| 2258 012024 001430 BEQ 3$ 
| (1) :t MOV QSTAT,STMDAT ;/READ DEVICE REG STAT,PUT DATA IN $TMDAT. 
2260 012036 105737 001462 TSTB = STMDAT 
2261 012042 100421 BM] 3$ “BRANCH IF SET 
2262 012044 005301 DEC R1 “DELAY 
2268 012046 001363 BNE 1$ 
2264 012050 004737 011410 JSR PC,ACTRLC ;sTEST FOR CTRL C 
2265 012054 005300 DEC RO “DELAY 
2266 012056 001357 BNE 1$ 
2267 012060 037727 167054 010000 BIT aSwR,#Swi2 >TEST INHIBIT PRINTOUT 
2268 012066 001002 BNE 2$ 
2269 012070 104401 TYPE 
2270 012072 013036 MES3 
2271 012074 104407 2$: CKSWR -TEST FOR CTRL 
2272 012076 005777 167036 TST aSwR “TEST aSWR 
2273 012102 100001 BPL 3$ 
2274 012104 000000 HALT “ERASE RETURN FAILED TO SET READY 
2279 012106 000207 3$: RTS PC 
2277 .SBTTL SUBROUTINE TO DRAW A HORIZONTAL LINE 
2278 012110 012737 000000 001462 LOADVC: MOV #0, $TMDAT “CLEAR STATUS 
(1) st MOV STMDAT,@STAT :/ PUT DATA FROM STMDAT TO DEVICE REG STAT 
2280 012126 012737 007777 014634 MOV #7777, TEMP1 
2281 012134 013700 001464 MOV STAT. RO 
2282 012140 032777 000010 166772 BIT #SWO3,aSwR -TEST SR BIT 3 
2283 012146 001405 BEQ 4$ “BR IF DAC #0 AND 1 
2284 012150 013701 001472 MOV DAC2,R1 ;LOAD X AXIS 
2285 012154 013702 001474 MOV DAC3,R2 ;LOAD Y AXIS 
2286 012160 000404 BR 5$ 
2287 012162 013701 001466 4$: MOV DACO,R1 
2288 012166 013702 001470 MOV DAC1.R2 
2289 012172 012710 002000 S$: MOV #B1T10, (0) -SET STORE MODE 
2290 012176 013712 014634 MOV TEMP1, (2) 
2291 012202 012711 007777: 1$: MOV #7777, (1) 
2292 012206 000402 BR 3g 
2293 012210 162711 000010 2$: SUB #10, (1) 
2294 012214 005210 3$: INC (0) 
2295 912216 105710 TS1B. ss (0) 
2296 012220 100376 BPL -2 
2297 012222 022711 000007 CMP #7,(1) 
2298 012226 001370 BNE 
2299 012230 104407 CKSWR -TEST FOR CTRL G 
2300 012232 004737 011410 JSR PC ACTRLC sTEST FOR CTRL C 
2301 012236 162712 000010 SUB #16, (2) 
2302 012242 100357 BPL 1$ 


\ —  —_—— — ee - _ —— — — _—- -_-— 
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me - 
i - 


MAINDEC-11-CRLPB-B 
P11 


CRLPBB 
2303 
m 


FEEERES 
SO wm & wt — 


2348 


012244 


oOooo°oo oOo 


Ow WNL & eS 


oper ote WAIANAE WANN 
ROO e NOOK hM 


26-SEP-80 


000207 


104407 
004737 
017737 


032737 


000207 


042737 


000177 
007142 


011024 
013737 


AAPAERS 
-—OoOW" 


ooo 
WINRAR 
ooo 
—W EWN Mn 


me -——i—“—:Ci— 


AA11-K 
13:52 


011410 
166660 


000400 
014630 
000002 


177770 


002274 
002264 


012400 
014636 


014630 


041412 


046105 

524 
054502 
047111 


DIAGNOSTIC 


014626 
014626 


014626 


014626 
014626 


014636 


mM 4 
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SUBROUTINE TO DRAW A HORIZONTAL LINE 


-SBTTL ASCII MESSAGES 
<15><12><12>*CRLPBBO 


RTS 
~ SBTTL 
; ENTER VIA JSR 
TIMER: CKSWR 
JSR 
MCV 
TIMERA: BIT 
BNE 
DEC 
BNE 
ADD 
TIMER1: RTS 
; SWR 8=1 SELECT 
; SWR 2-0= TEST 
TIMER2: BIC 
ASL 
ADD 
MOV 
CMP 
TIMERS: JMP 
ROUTPT: PICO 
PIC1 
PIC3 
PIC4 
PIC6 
CHTIME: MOV 
1$: DEC 
BEQ 
ASL 
BR 
2$: RTS 
CPTYPE: 1 
TITLE: .ASCII 
ASCII 


PC 

TIMER ROUTINE 
PC, TIMER 
PC,ACTRLC 
aSwWR, TIMSV 


#BITB, TIMSV 
TIMERZ 


TEST TO LOCK 
NUMBER 


#177770, TI MSV 
TIMSV 
#ROUTPT, TIMSV 
@TIMSV,TIMSV 


(SP)+,RO 
aTIMSV 


CPTYPE ,BRLEV1 
BRLEV1 


2$ 
TICKS 
1$ 
PC 


/SELECT TESTS 


FOR VISUAL TEST PATTERNS 


;TEST FOR CTRL C 


;BIT 8 SET ? 

:NO, DECREMENT TICKS 
:ADD 2 TO STACK POINTER 
*RETURN 


ON 


;DISPLAY A HORIZONTAL LINE 
;DISPLAY A VERTICAL LINE 
;DISPLAY A SQUARE 

:D! ttyee 

D1 


Y 
SPLAY CHARACTER SET 


LPA/AA11-K DIAGNOSTIC TEST ‘°<15><12> 


BY TYPING A TWO LETTER 1.0./<15><12> 


SEQ 0051 


—_—— 


| | N 4 
‘MAINDEC-11-CRLPB-B K DIAGNOSTIC MACY11 30G(1063) 24-OCT-80 09:31 PAGE 5-5 


AA11- 
‘CRLPBB.P11 25-SEP-80 13:52 ASCII MESSAGES SEQ 0052 
| 012504 020101 053524 020117 
012512 042514 052124 051105 
012520 046440 042056 006456 
012526 = O12 
2349 012527 101 004514 040472 eASCII = /AL :AUTO LOGIC TEST/<15><12> 
012534 052125 020117 047514 
012542 044507 020103 042524 
912550 052123 005015 
2350 012554 042101 035011 052501 ~ASCII /AD :AUTO DISPLAY TEST (DISPLAY SCOPE CONNECTED) /<15><12> 
012562 047524 042040 051511 
012570 046120 054501 052040 
012576 051505 020124 042050 
012604 051511 046120 054501 
012612 051440 047503 042520 
012620 041440 047117 042516 


BaSete vite | 042105 006451 
2351 012635 115 004514 046472 ASCII = /ML :MANUAL LOGIC TEST (SWR 15-13 = REGISTER 12-0 = DATA)/<15><12> 


2352 OS eee 035011 040515 ASCII = /MD :MANUAL DISPLAY (NO DISPLAY SCOPE) /<15><12> 


047503 042520 


2355 046472 ASCII = /MC :MANUAL CALIBRATION LOOP/<15><12> 


oo°o°o°o°oo 
el el ce et aed aed ed 
Oooo 
a = 
—_ 
wu 
> 


2354 013034 


5 
000056 ASC 
2355 013036 005015 Rr 5a93 ey 


Ff. 
1 MESS: -ASCIZ <15><12>"‘ERASE RETURN FAILED TO SET READY''<15><12> 


Ss 


Vk FWwwnN OO 


2356 MES6: -ASCIZ <15><12>°SCOPE ADJUSTMENT TEST’ 


2357 MES15: .ASCII] <15><12>/SWRB AND O THRU 2 CONTROL PATIERN/<15><12> 


Ve Ur Utd Ur Ur Ut Ut UC Ut Ut 
le cl el ed ee et et et ee 
EOOWRS SF OCOWN & 

oo 

MmOw 

o— 


Le 
MAINDEC=11-CRLPB-B “Al1-K DIAGNOSTIC MACY11 30G(1063) 24-OCT-80 09:31 PAGE 5-6 
CRLPBB.P11 26-SEP-80 13:52 ASCII MESSAGES | SEQ 0053 


013162 051124 046117 050040 
013170 052101 042524 047122 
| 013176 005015 
| =6.2358 «©9013200 053523 aeoies 044502 ASCII ‘SWR BIT 3 SELECTS DAC 0*1 OR DAC 243'°<15><12> 
013206 020124 020063 042523 
| 013214 042514 052103 020123 
| 013222 040504 020103 025460 
013230 020061 051117 042049 
013236 041501 031040 031453 
013244 005015 
2359 013246 053523 020122 044502 -ASCII /SWR BIT 5 SELECTS STORAGE SCOPE MODE/<15><17> 
013254 020124 020065 042523 
013262 042514 052103 020123 
013270 052123 051117 043501 
013276 020105 041523 050117 
013304 020105 047515 042504 
013312 005015 
2360 013314 053523 020122 044502 ASCII /SWR BIT 7 ENABLES VERTICAL SETTLING TEST/<15><12> 
013322 020124 020067 047105 
013330 041101 042514 020123 
013336 042526 052122 041511 
013344 046101 051440 052105 
013352 046124 047111 020107 
013360 042524 052123 005015 
2361 013366 053523 020122 044502 -ASCIZ /SWR BIT 9 SELECTS TWO'S COMPLEMENT DISPLAY MODE/<15><12> 
013374 020124 020071 042523 
013402 042514 952103 020123 
013410 053524 023517 020123 
013416 047503 050115 042514 
013424 042515 052116 042040 
013432 051511 046120 054501 
013440 046440 042117 006505 
013446 000012 
2362 013450 052123 052101 051525 EM1: -ASCIZ /STATUS REGISTER IN ERROR/ 
013456 051040 043505 051511 
013464 042524 020122 047111 
1 are 042640 051122 051117 
2363 013501 104 041501 020060 €EM2: -ASCIZ /DACO REGISTER IN ERROR/ 
013506 042522 044507 052123 
013°14 051105 044440 020116 
013522 051105 947522 000122 
2364 913530 040504 030503 051040 €EM3: -ASCIZ /DAC1 REGISTER IN ERROR/ 
013536 043505 051511 042524 
013544 020122 047111 042440 
013552 051122 051117 000 
2365 013557 104 041501 020062 EM: -ASCIZ /DAC2 REGISTER IN ERROR/ 
| 013564 042522 044507 052125 
013572 051105 044440 020116 
| 013600 051105 047522 000122 
| 2366 013606 040504 031503 051040 EMS: -ASCIZ /DAC3 REGISTER IN ERROR/ 
013614 043505 051511 042524 
| 013622 020122 047111 042440 
013630 051122 051117 000 
2867) 013635 102 051525 052040 €M10: .ASCIZ /BUS TIME-OUT WHEN REFERENCING THE AA11-K/ 
013642 046511 026505 052517 


MAINDEC-11-CRLPB-B 
CRLPBB.P11 


eolelelelejlejlejoejle} = 
aad cd ced ead cd ad ed ed 


— — 
=> 
~ — 
=> 
wi & 


14166 


ewlelelelelejlelelejl ele) ejej oe) a) a) a, 


SOU EWN 


14152 . 


26-SEP-80 


020124 


AA11-K 
13:52 


MONMVIMAUVIWIUW & vy 


050122 


012 
1 


020062 


DIAGNOSTIC 


020040 
004503 


047516 


004503 
004505 
041011 


051107 
052105 
020104 


020040 
026461 
020040 


EM11: 


EM13: 


DH1: 


DH6: 
DH13: 


DH14: 


QMARK: 
CONTC: 


FOUND1: 


FOUND2: 


SELDO1: . 


SELD23: . 


eASCIZ 


BYTE 
BYTE 


BYTE 
ASCIZ 


~ASCIZ 


. 3 
MACY11 506(1063) 24-OCT-80 09:31 PAGE 5-7 
ASCI1 MESSAGES 


/AA11-K READY BIT ERROR/ 


/ONE BIT THE DUST/ 


/ERRPC IBASE EXPECT BAD/ 


ZERRPC IBASE/ 


JERRPC IBASE # FIRST # NOW/ 


/ERRPC IBASE GOOD  BAD/ 


15,12,77,15,12,0 
136,103,15,12,56,0 


15,12 
/PROGRAM DETECTED / 
/(8) AAI1-KCS) / 


2,0 
M4 


15,1 
15,1 
/SET SWITCH TO SELECT DAC 0 AND 1/<15><12> 


E 


1 
ET SWITCH TO SELECT DAC 2 AND 3/<15><12> 


SEQ 0054 


MAINDEC-11-CRLPB-B 


CRLPBB.?1 


2389 


014632 


26-SEP-80 


So 
= 
~m 
—§§ OO -OuUnikr—oO— 


Oo ON “OO SS YT" O 


00 


000000 


AA11-K 
13:52 


006463 
r4 


042524 


001464 


000000 


DIAGNOSTIC 
ASCII MESSAGES 


000012 


006522 
031061 


006522 


901124 
001124 
001124 
001124 
001124 


000000 
014642 


001124 


000000 
000000 


CALDON: 


MANHED : 


Dil: 
DTe: 
DT3: 
DT4: 
DTS: 
DT6: 


T 
DT13: 
D114: 


DFO: 


, 7 
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-BYTE 
eASCIZ 


BYTE 


ASCII 


ASCII 


-BYTE 


SERRPC,,STAT, SGDDAT ,SBDDAT ,0 
SERRPC ,DACO, $GDDAT, $BDDAT,0 
SERRPC ,DAC1,$GDDAT, $BDDAT, 0 
SERRPC ,DAC2,$GDDAT, $BDDAT,0 
SERRPC ,DAC3,$GDDAT , SBDDAT ,0 


15,12 
/AUTO CALIBRATION COMPLETED/<15><12> 


15,12 
/SwW 15-13 SELECT THE REGISTER/<15><i2> 


/SwW 12-00 ARE LOADED INTO THE SELECTED REGISTER/<15><12> 


0 


SERRPC,STAT,O 
SERRPC,STAT 


SERRPC STAT, SGDDAT , SBDDAT ,0 


"EVER, SUNIT,0O 


0,0,0,0,0,0,0,0 


SEQ 0055 


MAINDEC-11-CRLPB-B 
CRLPBB.P11 


2408 


PP PP ee eee me ee ee mm me mm mm mm fm Pm fl fl fl fm fm 
Se a a de a ee i i i i i i i eet eet te ti 


014634 


014652 


014654 


000000 


000000 


003002 


AA11-K DIAGNOSTIC 


26-SEP-80 13:52 


015070 
000040 


015060 


000001 
000060 
000040 


000010 


000001 


177777 


OOoOooCooooe 


MACY11 306(1063) 
ASCI1 MESSAGES 


. 7 
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PAGE 6 


; TEMPORARY STORAGE 


CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


SP RRAR AREA AAAAHAAAATAERARERAAHAAATARKAAARAAARARAAAAKARAKARAAATAAA eee 


;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 


>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. 


DEPENDING ON WHETHER THE 


;*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


s*CALL: 


1$: 


7$: 


MOV 


TYPDS 


NUM ,-(SP) 
RO,-(SP) 


R5=(SP) 
#20200, (SP) 
20(SP),R5 


ty 
-,1(SP) 


R0 
#SDBLK,R3 
ge’  (R3)¢ 


R2 
SDTBL(RO) ,R1 
R5 


6 
Ho -1(R5) 


0,R2 


::PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 


;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

;;PUSH R2 ON STACK 

;;PUSH R3 ON STACK 

;;PUSH RS ON STACK 

a3} BLANK SWITCH AND SIGN 
>;GET THE INPUT NUMBER 


S. 
;;MAKE THE BINARY NUMBER POS. 
;;MAKE THE ASCII NUMBER NEG. 
;;ZERO THE CONSTANTS INDEX 
;;SETUP THE OUTPUT POINTER 
;;SET iHE FIRST eek TO A BLANK 
ee U 


:FORM THIS BCD DIGIT 
BR IF DONE 
; INCREASE THE BCD DIGIT BY 1 


:;ADD BACK THE CONSTANT 

;; CHECK IF BCD DIGIT=0 

::FALL THROUGH IF 0 

::STILL DOING LEADING 0°S? 

;;BR IF YES 

:;MSD? 

;;BR IF NO 

7: YES--SET THE SIGN 

;;MAKE THE BCD DIGIT ASCII 

>;MAKE IT A SPACE IF NOT ALREADY A DIG 
:;PUT THIS CHARACTER IN THE OUTPUT BUF 
;; JUST INCREMENTING 

;; CHECK THE TABLE INDEX 

3360 oe THE NEXT DIGIT 

;;G0 TO EXIT 


11 
FER 


ements ee 


ee 
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CRLPBB.P 26-SEP-80 13:5 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0057 
(1) 015010 010502 MOV R5,R2 ::GET THE LSD 
(1) 015012 000764 Ba 6$ ;;G0 CHANG TO ASCII 
(1) 015014 105726 8$: TSTB (SP)+ ssWAS T HE LSD THE FIRST NON-ZERO? 
(1) 015016 100003 BPL ah F NO 
(1) 015020 116663 177777 177776 MOVB -1(SP),-2(R3) + YES==SET THE 4 FOR TYPING 
(1) 015 105013 9$: CLRB (R3) :;SET THE TERMINATOR 
(3) 015030 012605 MOV (SP)+,R5 ::POP STACK INTO R5 
(3) 015032 012603 MOV (SP)+,R3 :;POP STACK INTO R3 
(3) 015034 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 015036 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
(3) 015040 012600 MOV (SP)+,RO :;POP STACK INTO RO 
(1) 015042 104401 015070 TYPE , SOBLK -:;NOW TYPE THE NUMBER 
(1) 015046 016666 900002 000004 MOV 2(SP) ,4(SP) : s ADJUST THE STACK 
(1) 015054 012616 MOV (SP)+, (SP) 
(1) 015056 000002 RT] : :RETURN TO USER 
(1) 015060 023420 $DTBL: 10000. 
(1) 015062 001750 1000. 
(1) 015064 000144 100 
(1) 015066 000012 0 
(1) 015070 000004 SDBLK: .8LK 4 
ahh ~SBITL SCOPE HANDLER ROUTINE 
(2) SRAAAEA AERA AETERATA AERA KER HARE RAAAAARARKKATHeeAHe eRe eee 
(1) * STHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) *‘*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) >*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) : # THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(1) :*SW14=1 LOOP ON TEST 
(1) :*SwO08=1 LOOP ON TEST IN SWR<7:0> 
(1) > *CALL 
4 ;* SCOPE :: SCOPE=I10T 
(1) 015100 SSCOPE: | 
(1) 015100 104407 CKSWR >;TEST FOR CHANGE IN SOFT=-SWR 
(2) 015102 004737 011410 JSR PC,ACTRLC 
(1) 015106 032777 040000 164024 1$: BIT #B1T14,aSWR 3 sL OOF ON PRESENT TEST? 
(1) 015114 001040 BNE SOVER YES IF SW14=1 
(1) ;MAHAASTART OF CODE FOR THE XOR TESTERMMAMM 
(1) 015116 000416 $XTSTR: BR 6$ elf RUNNING ON THE "’“XOR'' TESTER CHANGE 
(1) *THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
(1) 015120 013746 000004 MOV @#ERRVEC ,-(SP) : = SAVE THE ceorents OF THE ERROR VECTOR 
(1) 015124 012737 015144 000004 MOV #5$, a#ERRVEC B3oet FOR TIMEOUT 
(1) 015132 005737 177060 TST a#177060 TIME OUT ON XOR? 
(1) 015136 012637 000004 MOV (SP)+, a#ERRVEC ; ; RESTORE THE gg VECTOR 
(1) 015142 000414 BR SSVLAD ;G0 TO THE NEXT TEST 
(1) 615144 022626 5$: CMP (SP)+,(SP)+ >: CLEAR THE STACK AFTER TIME OUT 
(1) 015146 012637 000004 MOV (SP)+, @#ERRVEC + sRESTORE THE ERROR VECTO 
(1) 015152 000421 BR SOVER *LOOP ON THE PRESENT TEST 
(1) 015154 6$:;##MMMEND OF CODE FOR THE al “festERenae 
(1) 015154 032777 000400 163756 BIT #B1108,aSWR ;LOOP ON SPEC. TEST? 
(1) 015162 001404 BEQ SSVLAD F 
(1) 015164 127737 163750 901102 CMPB 3eUR, STSTNA TON THE RIGHT TEST? SwR<7:0> 
(1) 015172 001411 BEQ SOVER ; BR IF YES 
(1) 015174 105237 001102 $SVLAD: INCB STSTNM ;COUNT TEST NUMBERS 
(1) 015200 113737 001102 001176 MOVB STSTNM,STESTN == SET TEST NUMBER IN APT MAILBOX 
(1) 015206 011637 001106 MOV (SP) ,SLPADR >: SAVE SCOPE LOOP ADDRESS 


, a ee 
ll lt cl cl 
Ow www 


~m 


BR BP LPR PPP PPL Le ym me hl ee em ee fl em mm om fl fl fl, Fm Pm 


wee eee ww ww Ow we a ew ew we we ee we we a ee ww eww ww eae we 


™m 
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OOO odofooon & 
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105037 


000002 


104407 


104401 
122737 


104407 
000002 


104401 
6 


0 
153700 


020000 


015362 
001167 


000001 


001114 
017342 


1635566 


001167 


001114 


DIAGNOSTIC 


163716 


163666 


001116 
001114 
163632 


001212 
015342 


MACY11 30G6(1063° 


6 35 
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SCOPE HANDLER ROUTINE 


CLRB SERFLG ;;ZERO THE ERROR FLAG 
SOVER: MOV STSTNM,@DISPLAY :DISPLAY TEST NUMBER 
MOV SLPADR, (SP) ;;FUSGE RETURN ADDRESS 
RT] * oF KES PS 
.SBTTL ERROR HANDLER ROUTINE 
SF RAAAAAREAEAEAAAAAAAEAIT EHH EAHA AAA TE Reeeeeeeneeaeeeaereeneee 
s*THIS ROUTINE WILL !wCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
>*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
; * AND GO TS SERRTYP ON ERROR 
seine SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
wi5=1 HALT ON ERROR 
jeu 31 INHIBIT ERROR TYPEOUTS 
> *CALL 
;@ ERROR N : ;ERROR=EMT AND W=ERROR ITEM NUMBER 
SERROR: 
CKSWR :: TEST FOR CHANGE IN SOF T=-SWR 
JSR PC,ACTRLC 
7$: INCB SERFLG ;;SET THE ERROR FLAG 
BEQ 7$ ;;DON'T LET THE FLAG GO TO ZERO 
MOV STSTNM,ADISPLAY +:DISPLAr TEST _— AND ERROR FLAG 
INC SERTTL ; INC THE ERROR COUN 
MOV (SP) ,SERRPC GET ADDRESS OF oRROR INSTRUCTION 
SUB #2, SERRPC 
MOVB @SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #B1T15,aSWR > SKIP on IF SET 
BNE 20$ SKIP TYPEOUTS 
JSR PC ,SERRTYP ;;G0 TO USER ERROR ROUTINE 
TYPE ,SCRLF : 
20$: 
CMPB #APTENV, SENV ; s RUNNING IN APT MODE 
BNE 2$ >NO,SKIP APT ERROR REPORT 
MOVB SITEMB,21$% - = SET ITEM NUMBER AS ERROR NUMBER 
JSR PC ,SATY4 ::REPORT FATAL ERROR TO APT 
21$: BYTE 0 
BYTE 0 
22s: BR 22% >: APT ERROR LOOP 
2$: TST asSwR ; ;HALT ON ERROR 
BPL 3$ ::;SKIP IF CONT INUE 
HALT ;;HALT ON ERROR 
CKSWR :: TEST FOR CHANGE IN SOF T=SWR 


3$: 


RT] RE 
.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


TURN 


SeRaKeReKeKeeeeeeeeeeeteeeeeeredeeketneeteteteteeaeaeneeearerene 


THIS ROUTINE USES THE “‘ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 


;*ERROR IS TO BE REPORTED. 


IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 


;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


, SCRLF :3""CARRIAGE RETURN’ & "LINE FEED" 
RO,-(SP) >; SAVE RC 

RO ;;PICKUP THE ITEM INDEX 

a#$ 1 TEMB RO 


MAINDEC-11-CRLPB-B 


CRLPBB.P 


RR LE POR LP LP LP LPL LP Pe ey fe Lh Le he fe fe ee he le hm l,m, i, fm fm me my Fm 
ee IN) ek kk ak kd a ok ot td ot ot ot oS SS FUNNIES SS 
Oe i _ ti 


P11 

015376 
015400 
015404 


015510 
015512 


26-SEP-80 


001004 
013746 
104402 


000207 
013046 


015516 


AA11-K DIAGNOSTIC 


13:52 


001116 


001254 
015434 


001167 
015452 


001167 


001167 


015512 
000 


MACY11 306(1063) 


ERROR MESSAGE TYPEOUT ROUTINE 


8$: 


BNE 


1$ 
SERRPC ,-(SP) 


#SERRTB,RO 
(RO)+,2$ 
3$ 


0 

, SCRLF 
(RO)+,4$ 
5$ 


0 
,SCRLF 
(RO) ,RO 
7$ 


(SP)+,RO 
, SCRLF 
PC 


a(RO)+,=4SP) 


) 
ne OCT-80 09:31 PAGE 6-3 


::1F ITEM NUMBER IS ZERO, JUST 

;; TYPE THE PC OF THE ER ROR 

;;SAVE SERRPC FOR TYPEOUT 

;;ERROR ADDRESS 

it ft tes ASCIICALL DIGITS) 

er THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 


;;FORM TABLE POINTER 
;;PICKUP ‘ERROR MESSAGE'’ POINTER 
Sf ot TYPEOUT IF NO POINTER 
TYPE THE ‘ERROR MESSAGE"’ 
; 3 ERROR MESSAGE'’ POINTER GOES HERE 
>; ‘CARRIAGE RETURN'' & "LINE FEED" 
+ PICKUP ‘DATA HEADER’ POINTER 
;SKIP TYPEOUT IF 0 
: 3 TYPE THE ‘DATA HEADER" 
;;| DATA HEADER" POINTER GOES HERE 
;' CARRIAGE RETURN’ & “‘LINE FEED” 
: SPICKUP "DATA TABLE’’ POINTER 
+360 TYPE THE DATA 
;RESTORE RO 
: CARRIAGE RETURN’ & "LINE FEED" 
; RETURN 


;;SAVE a(RO)+ FOR TYPEOUT 

;;G0 TYPE--OCTAL ASCII(ALL DIGITS) 
pt. toy ANOTHER NUMBER? 

; 3 TYPE TWO(2) SPACES 


; LOOP 
:TWO(2) SPACES 


SEQ 0059 


:* & 
24-0CT-80 09:31 


MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC MACY1* 30G6(1063) PAGE 7 
CRLPSB.P11 26-SEP-80 13:52 POWER DOWN AND UP ROUTINES 
ri; .SBTTL POWER DOWN AND UP ROUTINES 
(2) Peeeeeeeeeteeeetetetetereereeteteneneeneteetteneeteeeteeeteneres 
(1) BOWER DOWN ROUTINE 
(1) 015516 012737 015662 000024 $PWRDN: MOV #SILLUP,@#PWRVEC ;;SET FOR FAST UP 
(1) 015524 012737 000340 000026 MOV #340 ,a#PWRVEC+2 ;;PRIO:7 
(3) 015532 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
(3) 015534 010146 MOV R1,-(SP) :>:PUSH R1 ON STACK 
(3) 015536 010246 MOV R2,-(SP) :;PUSH R2 ON STACK 
(3) 015540 010346 MOV R3,-(SP) :;PUSH R3 ON STACK 
(3) 015542 010446 MOV R4,-(SP) ::PUSH R& ON STACK 
(3) 015544 010546 MOV R5,-(SP) :;PUSH RS ON STACK 
(3) 015546 017746 163366 MOV aSwWR,-(SP) >;PUSH @SWR ON STACK 
(1) 015552 010637 015666 MOV SP, SSAVR6 ;; SAVE SP 
(1) 015556 012737 015570 000024 MOV #SPWRUP, a#PWRVEC ;;SET UP VECTOR 
(1) 015564 000000 HALT 
on 015566 000776 BR 72 ::HANG UP 
(2) SP RRAReeeeaeeeeeeeeeeeeereeeetetetetreneeeeteneeeeeneateetenteeee 
(1) :POWER UP ROUTINE 
(1) 015570 012737 015662 000024 $PWRUP: MOV @SILLUP,@#PWRVEC ;;SET FOR FAST DOWN 
(1) 015576 013706 015666 MOV SSAVR6, SP :;GET SP 
(1) 015602 005037 015666 CLR SSAVR6 ::WAIT LOOP FOR THE TTY 
(1) 015606 005237 015666 1$: INC SSAVR6 ::WAIT FOR THE INC 
(1) 015612 001375 BNE 1$ ::0F WORD 
(3) 015614 012677 163320 MOV (SP)+,aSwWk ::;POP STACK INTO aSwR 
(3) 015620 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
(3) 015622 012604 MOV (SP)+,R4 ::POP STACK INTO R4 
(3) 015624 012603 MOV (SP)+,R3 ::POP STACK INTO R35 
(3) 015626 012602 MOV (SP)+,R2 :;POP STACK INTO R2 
(3) 015630 012601 MOV (SP)+,R1 + POP STACK INTO R1 
(3) 015632 012600 MOV (SP)+,RO ; STACK INTO RO 
(1) 015634 012737 015516 000024 MOV #SPWRON, aePWRVEC :gSEI UP THE POWER DOWN VECTOR 
(1) 015642 012737 000340 060026 MOV #340, Q#PWRVEC+2 ; RI0:7 
(1) 015650 104401 TYPE as a REPORT THE POWER FAILURE 
(1) 015652 015670 SPWRMG: .WORD PWRMASG ;POWER FAIL MESSAGE POINTER 
(1) 015654 012716 MOV (PC)+, (SP) RESTART AT BEGIN 
* (1) 015656 001520 SPWRAD: .WORD  BEGIN1 ::RESTART ADDRESS 
(1) 015660 000002 RT] 
(1) 015662 000000 SILLUP: HALT ; 5 THE POWER UP SEQUENCE WAS STARTED 
(1) 015 77 BR -2 a3 mre THE POWER DOWN WAS COMPLETE 
(1) 015 000000 SSAVR6: 0 THE SP HERE 
2423 015670 00 042522 052123 PWRMSG: .ASCIZ eVS><ta>/nestantinng” APTER A POWER FAILURE /<15><12><12> 
015676 051101 044524 043516 
015 040440 052106 051105 
015712 040440 050040 053517 
015 051105 043040 044501 
015726 052514 042522 005015 
015734 000012 


2424 EVEN 


SS Bae. 
MAINDEC-11-CRLPB-B AA11-K DIAGNOSTIC MACY11 306(1063) ae ae 09:31 PAGE 8 


CRLPBB.P11 26-SEP-80 13:52 BINARY TO OCTAL (ASCII!) AND TYP SEQ C061 
oT .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

(2) Speeeeeeeeekeneeteterereeeerereteterererenetetereneteerstererenes 

(1) -*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

(1) -*OCTAL (ASCII) NUMBER AND TYPE IT. 

Sh oe hep oie camlat: HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
> *CALL: 

(1) ;* MOV NUM ,-(SP) ::NUMBER TO BE TYPED 

(1) ;* TYPOS :;CALL FOR TYPEOUT 

(1) 7? BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

(1) :f BYTE M ::;M=1 OR QO 

(1) :t :;1=TYPE LEADING ZEROS 

a ;* :;0=SUPPRESS LEADING ZEROS 
& 

(1) > *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

(1) :*$TYPOS OR S$STYPOC 

(1) s*CALL: 

(1) ; MOV NUM ,-(SP) : ;NUMBER TO BE TYPED 

A sa TYPON >:;CALL FOR TYPEOUT 
*® 

+t > *$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
s*CALL: 

(1) :* MOV NUM,-(SP) : ;NUMBER TO BE TYPED 

H ;* TYPOC >:;CALL FOR TYPEOUT 

( 

(1) 015736 017646 000000 $TYPOS: MOV a(SP),-(SP) :;PICKUP THE MODE 

(1) 015742 116637 000001 016161 MOVB 1(SP) ,SOFILL >:;LOAD ZERO FILi SWITCH 

(1) 015750 112637 016163 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 

(1) 015754 062716 000002 ADD #2, (SP) > ADJUST RETURN ADDRESS 

(1) 015760 000406 fae STYPON , 

(1) 015762 112737 000001 016161 $TYPOC: MOVE #1 ,SOFILL ::;SET THE ZERO FILL SWITCH 

(1) 015770 112737 000006 016163 MOVB #6,S0MODE +! ::;SET FOR SIX(6) DIGITS 

(1) 015776 112737 000005 016160 $TYPON: MOVB #5,S0CNT :-:SET THE ITERATION COUNT 

(1) 016004 010346 MOV R3,-(SP) >: SAVE R3 

(1) 016006 010446 MOV R4,-(SP) ;; SAVE R4 

(1) 016010 010546 MOV R5,-(SP) >: SAVE R5 , 

(1) 016012 113704 016163 MOVB SOMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 

(1) 016016 005404 NEG R4 

(1) 016020 062704 000006 ADD #6,R4 >: SUBTRACT IT FOR MAX. ALLOWED 

(1) 016024 110637 016162 MOVB R4,SOMODE >:SAVE IT FOR USE 

(1) 016030 113704 016161 MOVB SOFILL,R4 :>:GET THE ZERO FILL SWITCH 

(1) 016034 016605 000012 MOV 12(SP),R5 :;PICKUP THE INPUT NUMBER 

(1) 016040 005003 CLR R3 :;CLEAR THE OUTPUT WORD 

(1) 016042 006105 1$: ROL R5 ::ROTATE MSB INTO ‘'C’’ 

(1) 016044 000404 BR 3$ ;;G0 DO MSB 

(1) 016046 006105 2$: ROL R5 ::FORM THIS DIGIT 

(1) 016050 006105 ROL RS 

(1) 016052 006105 ROL 

(1) 016054 010503 MOV R5,R5 

(1) 016056 006103 3$: ROL R3 ::GET LSB OF THIS DIGIT 

(1) 016060 105337 016162 DECB SOMODE >: TYPE THIS DIGIT? 

(1) 016064 100016 BPL 7$ ::;BR IF NO 

(1) 016 042703 177770 BIC #177770,R3 :;GET RID OF JUNK 

(1) 016072 001002 BNE 4$ >: TEST FOR 0 

(1) 016074 005704 TST RG >: SUPPRESS THIS 0? 

(1) 016076 001403 BEQ $$ :;BR IF YES 
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MACY11 306(1063) PAGE 8-1 

BINARY TO OCTAL (ASCI1) AND T 

4$: INC :;DON'T SUPPRESS ANYMORE 0°S 
BIS #'0,R3 -:MAKE THIS DIGIT ASCII 

S$: BIS i : MAKE ASCII IF NOT ALREADY 
MOVB R3,8$ := SAVE FOR TYPING 
TYPE a -*GO TYPE THIS DIGIT 

7$: DECB = $OCNT "= COUNT BY 1 
BGT 2$ ::BR IF MORE TO DO 
BLT 6$ ::BR IF DONE : 
INC RG i INSURE LAST DIGIT ISN'T A BLANK 
BR 2$ :GO DO THE LAST DIGIT 

6$: MOV (SP)+,R5 RESTORE R5 
MOV (SP) +.RG "RESTORE R4 
MOV (SP)+,R3 RESTORE R3 
MOV 2(SP) .4(SP) SET THE STACK FOR RETURNING 
MOV (SP) +. (SP) 
RTI + =RETURN 

8$ .BYTE 0 = STORAGE FOR ASCII DIGIT 
BYTE Q :: TERMINATOR FOR TYPE ROUTINE 

SOCNT: .BYTE 0 ":OCTAL DIGIT COUNTER 

SOFILL: .BYTE 0 =: 7ERO FILL SWITCH 

SOMODE: .WORD = :NUMBER OF DIGITS TO TYPE 


: WW 0 
.SBTTL TYPE ROUTINE 


es MERBBBRBRBBBSZAASZAASERSERRRRRRRRARRRRRRRRRRR RARER RRR RRRRRRRRRRR RSS SD OS | 


‘*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


: *NOTE1: SNULL CONTAINS THE CHARACIER TO BE USED AS THE FILLER CHARACTER. 
;*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

: *NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 


*CALL 
1) USING A. TRAP INSTRUCTION 


“OR »MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
:* 
° TYPE 
+ MESADR 
;* 
STYPE TSTB STPFLG ;:;1S THERE A TERMINAL? 
BPL 1$ ;;BR IF YES 
HALT ;;HALT HERE IF NO TERMINAL 
BR 3$ ;; LEAVE 
1$ MOV RO,-(SP) 7; SAVE RO 
MOV a2(SP),RO :3GET ADDRESS A ASCIZ STRING 
CMPB #APTENV, SENV oe wee IN APT MOD 
BNE 6 :;NO0,GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL , SENVM ; ; SPOOL MESSAGE TO APT 
BEQ eet ,GO CHECK FOR CONSOL 
MOV RO,6 :: SETUP MESSAGE sg ty FOR APT 
JSR PC, SATYS 7;SPOOL MESSAGE TO A 
61$: WORD 0 SSF con ADDRESS 
62$: BITB #APTCSUP,SENVM APT CONSOLE SUPPRESSED 
BNE ‘YES. SKIP TYPE OUT 
2$: MOVB (RO)+,-(SP) Push er TO BE TYPED ONTO STACK 
BNE 4 R IF IT ISN'T THE TERMINATOR 
TST (SP)+¢ +40 TERMINATOR POP IT OFF THE STACK 


——_— ae ee ms ce eee + ee - - 
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CRLPBB.P11 26-SEP-80 13:52 TYPE ROUTINE SEQ 0063 
(1) 016254 012600 60$: MOV (SP)+,RO : sRESTORE RO 
(1) 016256 062716 000002 3$: ADD #2, (SP) > ;ADJUST RETURN PC 
(1) 016262 000002 RT] : sRETURN 
(1) 016264 122716 000011 4$: CMPB #HT, (SP) :;BRANCH IF <HT> 
(1) 016270 001430 BEQ 8$ 
(1) 016272 122716 000200 CMPB MCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
(1) 016276 001006 BNE 5$ 
(1) 016300 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
(1) 016302 104401 TYPE ;; TYPE A CR AND LF 
(1) 016304 001167 SCRLF 
(1) 016306 105037 016442 CLRB SCHARCNT ;;CLEAR CHARACTER COUNT 
(1) 016312 000755 BR 2$ :;GET NEXT CHARACTER 
(1) 016314 004737 016376 5$: JSR PC ,$TYPEC :;G0 TYPE THIS CHARACTER 
(1) 016320 123726 001156 6$: CMPB SFILLC,(SP)+* sat IT TIME FOR Ag sok CHARS.? 
(1) 016324 001350 BNE 2$ :;1F NO GO GET NEXT CHA 
(1) 016326 013746 001154 MOV SNULL ,-(SP) :;GET # OF FILLER CHARS. “NEEDED 
(1) ;;AND THE NULL CHAR 
(1) 016332 105366 000001 7$: DECB 1(SP) ;;DOES A NULL NEED TO BE TYPED? 
(1) 016336 002770 BLT 6$ ::BR IF ee ie tes THE NULL OFF OF STACK 
(1) 016340 004737 016376 JSR PC ,STYPEC ::GO TYPE AN 
(1) 016344 105337 016442 DECB SCHARCNT ;;D0 NOT COUNT hs A COUNT 
A 016350 000770 BR 7$ ;;LOOP 
af sHORIZONTAL TAB PROCESSOR 
(1) 016352 112716 000040 8$: MOVB #" (SP) : ;REPLACE TAB WITH SPACE 
(1) 016356 004737 016376 9$: JSR PC ,STYPEC >; TYPE A SPACE 
(1) 016362 132737 000007 016442 BITB #7, $CHARCNT 4 roy: IF NOT AT 
(1) 016370 001372 BNE 9$ STOP 
(1) 016372 005726 TST (SP)+ > = POP SPACE OFF STACK 
(1) 016374 000724 BR 2$ :;GET NEXT CHARACTER 
(1) 016376 105777 162546 $TYPEC: TSTB ee. :;WAIT UNTIL PRINTER IS READY 
(1) 016402 100375 BPL YPEC | 
(1) 0164046 116677 000002 162540 MOVB OSP). th :;LOAD CHAR TO BE TYPED INTO DATA REG. 
(1) 016412 122766 000015 000002 CMPB #CR,2¢(SP ::1S CHARACTER A CARRIAGE RETURN? 
(1) 016420 001003 BNE 1$ ::BRANCH IF NO 
(1) 016422 105037 016442 CLRB SCHARCNT 4245 ti mee CHARACTER COUNT 
(1) 016426 000406 BR STYPEX : IT 
(1) 016430 122766 000012 000002 1$: CMPB #LF,2(SP) 1S CHARACTER A LINE FEED? 
(1) 016436 001402 BEQ STYPEX ;;BRANCH IF YES 
(1) 016440 105227 INCB (PC)+ ::; COUNT THE CHARACTER . 
(1) 016442 000000 SCHARCNT:.WORD 0 ;; CHARACTER COUNT STORAGE 
at 016444 000207 STYPEX: RTS PC 
wi .SBTTL TTY INPUT ROUTINE 
) 
(2) RRR A HAHA KATA TAA eee eee eee eee eetaeeeeetenKereteeeeeeeeeret 
Ad -ENABL LSB 
(2) RRR RRARHEHAAAAA HAAR ATA AAAAHHAARERHARERAAeAeAAAeeeRe tet 
(1) “SSOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) -*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
(1) - *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGIS! ER TRAP CALL 
(1) > tWHEN OPERATING IN TTY FLAG MODE. 
(1) 016446 022737 000176 001140 $CKSWR: CMP #SWREG, SWR ::;1S THE SOFT-SWR SELECTED? 
(1) 016654 001074 BNE 15$ ::BRANCH IF NO 


ee 


. — 
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CRLPBB.P11 26-SEP-80 13:52 Y INPUT ROUTINE 2 SEQ 0064 
(1) 016456 105777 162462 TSTB astke 3: CHAR THERE ? 
(1) 016462 100071 BPL 15$ -: TF NO, DON'T WAIT AROUND 
(1) 016464 117746 162456 MOVB  a$TKB,-(SP) = SAVE THE CHAR 
(1) 016470 042716 177600 BIC #°C177, (SP) = STRIP-OFF THE ASCII 
(1) 016474 022726 000007 CMP #7, (SP)+ -:1S IT A CONTROL G? 
(1) 016500 001062 BNE 15$ -=NO, RETURN TO USER 
(1) 016502 123727 001134 000001 CMPB ~=s-: SAUTOB,, #1 :: ARE WE RUNNING IN AUTO-MODE? 
) 016510 001456 BEQ 15$ BRANCH IF YES 
(1) 016512 104401 017173 TYPE SSCNTLG »:ECHO THE CONTROL-G (*G) 
(1) 016516 104401 017200 $GTSWR: TYPE SMSWR >: TYPE CURRENT CONTENTS 
(2) 016522 013746 000176 MOV SWREG, -(SP) "SAVE SWREG FOR TYPEOUT 
(2) 016526 104402 TYPOC -:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 016530 104401 017211 TYPE  SMNEW -:PROMPT FOR NEW SWR 
(1) 016534 005046 19$: CLR -(SP) "CLEAR COUNTER 
(1) 616536 005046 CLR -(SP) >: THE NEW SWR 
(1) 016540 105777 162400 7$: TSTB 3s @STKS -=CHAR THERE? 
) 016544 100375 BPL 7$ =F NOT TRY AGAIN 
(1) 016546 117746 162374 MOVB  a$TKB,-(SP) ::PICK UP CHAR 
) 016552 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
a) 
(1) 016556 021627 000025 $: CMP (SP) 425 -:1$ IT A CONTROL-u? 
(1) 016562 001005 BNE 10$ BRANCH IF NOT 
(1) 016564 104401 017166 TYPE S$CNTLU -:YES, ECHO CONTROL-U (*U) 
(1) 016570 062706 000006 208: ADD #6,SP :: IGNORE PREVIOUS INPUT 
) 016574 000757 BR 19$ *:LET'S TRY IT AGAIN 
(1) 
(1) 016576 021627 000015 10$: CMP (SP) #15 ::1S IT A <CR>? 
(1) 016602 001022 BNE 16% : BRANCH IF NO 
(1) 016604 005766 000004 TST 4 (SP) >: YES, IS IT THE FIRST CHAR? 
(1) 016610 001403 BEQ 11$ =BRANCH IF YES 
(1) 016612 016677 000002 162320 MOV 2(SP),aSwR -= SAVE NEW SWR 
(1) 016620 062706 000006 11$: ADD #6,5 >:CLEAR UP STACK 
(1) 016624 104401 001167 14$: TYPE SCRLE >:ECHO <CR> AND <LF> 
(1) 016630 123727 001135 000001 CMPB =: SINTAG, #1 *:RE-ENABLE TTY KBD INTERRUPTS? 
(1) 016636 001003 BNE 15 ::BRANCH IF NOT 
(1) 016640 012777 000100 162276 MOV #100, a$TKS ;;RE-ENABLE TTY KBC INTERRUPTS 
(1) 016646 000002 15$: RTI : s RETURN 
(1) 016650 004737 016376 16$: JSR PC, STYPEC >:ECHO CHAR 
(1) 016654 021627 000060 CMP (SP) #60 >:CHAR < 0? 
(1) 016660 002420 BLT 18% * BRANCH IF YES 
(1) 016662 021627 000067 CMP (SP), #67 ::CHAR > 7? 
(1) 016666 003015 BGT 18$ >:BRANCH IF YES 
(1) 016670 042726 000060 BIC #60, (SP)+ >: STRIP-OFF ASCII 
(1) 016674 005766 000002 TST 2(SP) -:1S THIS THE FIRST CHAR 
(1) 016700 001403 BEQ 17$ *=BRANCH IF YES 
(1) 016702 006316 ASL (SP) -:NO, SHIFT PRESENT 
(1) 0167046 006316 ASL (SP) 3 HAR OVER TO MAKE 
(1) 016706 006316 ASL (SP) OOM FOR NEW ONE 
(1) 016710 005266 000002 17$: INC 2(SP) KEEP COUNT OF CHAR 
(1) 016714 056616 177776 BIS -2(SP), (SP) ;SET IN NEW CHAR 
(1) 016720 000707 BR 7$ - GET (HE NEXT ONE 
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PBB.P11 26-SEP-80 13:52 TTY INPUT ROUTINE SEQ 0065 
(1) 016722 104401 001166 18$: TYPE SQUES :: TYPE 2<CR><LF> 
(1) 016726 000720 BR 20$ =: SIMULATE CONTROL-U 
(1) .DSABL LSB 
i 
(2) SRR AAAERERAAKAATAAAT ATA TE Te Te Tete HAHAH eeeeKeteeeereneneteetereeee 
1) seTHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
:*CALL: 
(1) . ;* RDCHR -: INPUT A SINGLE CHARACTER FROM THE TTY 
(1) oe RETURN HERE ;;CHARACTER IS ON THE STACK 
oF ;* *:WITH PARITY BIT STRIPPED OFF 
(1) 
(1) 016730 011646 SRDCHR: MOV (SP), -(SP) ::PUSH DOWN THE PC 
(1) 016732 016666 090004 000002 MOV 4(S P) .2(SP) - SAVE THE PS 
(1) 016740 105777 162200 1$: TSTB asTK ::WAIT FOR 
(1) 016744 100375 BPL 1$ "=A CHARACTER 
(1) 016746 117766 162174 000004 MOVB  a$TKB,4(SP) :=READ THE TTY 
(1) 016754 042766 177600 000004 BIC #°C<177>,4(SP) ::GET RID OF JUNK IF ANY 
(1) 016762 026627 000004 000023 CMP 4(SP) #23 -:1$ IT A CONTROL-S? 
(1) 016770 001013 BNE 3$ ::BRANCH IF NO 
(1) 016772 105777 162146 2$: TSTB = ASTKS "= WAIT FOR A CHARACTER 
(1) 016776 100375 BPL 2$ -=LOOP UNTIL ITS THERE 
(1) 017000 117746 162142 MOVB  a$TKB,-(SP) = GET CHARACTER 
(1) 017004 042716 177600 BIC #°C177, (SP) *:MAKE IT 7-BIT ASCII 
(1) 017010 022627 000021 CMP (SP)+,#21 -:1S IT A CONTROL-Q? 
(1) 017014 001366 BNE 2$ ;31F NOT DISCARD IT 
(1) 017016 000750 , BR 1$ -YES, RESUME 
(1) 017020 026627 000004 000140 3s: CMP 4(SP),#140 =" 1§ [fT UPPER CASE? 
(1) 017026 002407 BLT 4$ : ;BRANCH IF YES 
(1) 017030 026627 000004 000175 CMP 4(SP),#175 -:1S IT A SPECIAL CHAR? 
(1) 017036 003003 BGT 4$ -=BRANCH IF YES 
(1) 017040 042766 000040 000004 BIC #40,4(SP) -:MAKE IT UPPER CASE 
(i) 017046 000002 4$: RT] ::G9 BACK TO USER 
(2) SRA AAAAe KAA AAAAATATATAA AAA AAA THA AAA eee eee KeeteAeteeeeteretere 
(1) -*#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
(1) >*CALL: 
(1) :# RDLIN :: INPUT A STRING FROM THE TTY 
(1) :f RETURN HERE = ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
() te :: TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 017050 010346 SRDLIN: MOV R3,-(SP) >: SAVE R3 
(1) 017052 012703 017156 1$: MOV #STTYIN,R3 >:GET ADDRESS 
(1) 017056 22703 017166 2$: CMP #STTYINGS. ,R3 : SBUFFER FULL? 
(1) 017062 101405 BLOS 3 =s«4$ IF YES 
(1) 617064 194410 RDCHR :60 READ ONE CHARACTER FROM THE TTY 
(1) 017066 112613 MOVB (SP) +, (R3) : GET CHARACTER 
(1) 017070 122713 000177 10$: CMPB ss #'177, (R3) -:1§ IT A RUBOUT 
(1) 017074 001003 BNE 3$ = SKIP IF NOT 
(1) 017076 104401 001166 4$: TYPE SQUES -: TYPE A '?° 
(1) 017102 000763 fhe i$ >: CLEAR THE BUFFER AND LOOP 
(1) 017106 111337 017154 3: MOVB (R3),9% >:ECHO THE CHARACTER 
(1) 017110 106401 017154 TYPE . 
(1) 017114 122723 000015 (MPR ss#15., (R3) :: CHECK FOR RETURN 
(1) 017120 001356 BNE 2% -=LOOP IF NOT RETURN 
(1) 017122 105063 177777 CLRB -1(R3) >: (LEAR RETURN (THE 15) 


- 
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CRLPBB.P11 26-SEP-80 03: $38 Y INPUT ROUTINE SEQ 0066 

(1) 017126 104401 001170 TYPE , SLF ive A LINE FEED 
(1) 017132 012603 MOV (SP)+,R3 ; RESTORE R3 
(1) 017134 11646 MOV (SP) ,-(SP) + sADJUST THE STACK AND PUT ADDRESS OF THE 
(1) 017136 016666 000004 090002 MOV 4(SP) ,2(SP) 33 FIRST ASCII CHARACTER ON IT 
(1) 017144 012766 017156 000004 MOV #STTYIN,4(SP) 
(1) 017152 000002 RTI ; RETURN 
(1) 017154 000 9$: ~BYTE QO ;;STORAGE FOR ASCII CHAR. TO TYPE 
(1) 017155 000 ~BYTE Q ;; TERMINATOR 
(1) 017156 000010 STTYIN: .BLKB 8. Ty hws 3 BYTES FOR TTY INPUT 
(1) 017166 052536 005015 000 S$CNTLU: .ASCIZ /*U/<15><12> ;;CONTROL ‘U" 
(1) 017173 136 006507 000012 SCNTLG: .ASCIZ /*G/<15><12> ;; CONTROL ''G’ 
(1) 017200 905015 053523 020122 SMSWR: .ASCIZ <15><12>/SWR = / 
(1) 017206 020075 000 
(1) 917211 040 047040 053505 SMNEW: .ASCIZ / NEW = 
(1) 017216 036440 000040 

wits .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
(2) SERRA AAA AA AEREEHEAETEAAAAAAAAAAAAKARERAREAAAAKeAAAAA AAA Te eA ee 
(1) ;*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TITY AND 
(1) . ;*CHANGE IT TO BINARY. 
(1) . ;*CALL: 
(1) ;* RDOCT ;;READ AN OCTAL NUMBER 
(1) ;* RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF THE STACK 
sa ;* ;;HIGH ORDER BITS ARE IN $HIOCT 
(1) 017222 011646 $RDOCT: MOV (SP) ,-(SP) ;;PROVIDE SPACE FOR THE 
(1) 017224 016666 000004 000002 MOV 4(SP),2(SP) ;; INPUT NUMBER 
(3) 017232 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
(3) 017234 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
(3) 017236 010246 MOV R2,-(SP) ;;PUSH R2 ON STACK 
(1) 017240 104411 1$: RDLIN ;;READ AN ASCIZ LINE 
(1) 017242 012600 MOV (SP)+,RO ::GET ADDRESS OF 1ST CHARACTER 
(1) 017244 005001 CLR R1 ;;CLEAR DATA WORD 
(1) 017246 005002 CLR R2 
(1) 017250 112046 2$: MOVB (RO) +,-(SP) ;;PICKUP THIS CHARACTER 
(1) 017252 001412 BEQ 3$ :3;1F ZERO GET OUT 
(1) 017254 006301 ASL R1 s3eg 
(1) 017256 006102 ROL R2 
(1) 017260 006301 ASL R1 73 %4 
(1) 017262 006102 ROL R2 
(1) 017264 006301 ASL R1 ;3*8 
(1) 017266 006102 ROL R2 
(1) 017270 042716 177770 BIC #*C7,(SP) ::;STRIP THE ASCII — 
(1) 017274 062601 ADD (SP)+,R1 aye IN THIS DIGIT 
(1) 0137276 000764 BR 2$ 
(1) 017300 005726 3$: TST (SP) + +E LEAN TERMINATOR FROM STACK 
(1) 017302 010156 000012 MOV R1,12(SP) ;;SAVE THE RESULT 
(1) 017306 010237 017322 MOV R2,$HIOCT 
(3) 017312 012602 MOV (SP)+,R2 ;;POP STACK INTO R2 
(3) 017314 012601 MOV (SP)+,R1 ;;POP STACK INTO RI 
(3) 017316 012600 MOV (SP)+,RO + POP — INTO RO 
(1) 017320 000002 ;;RETUR 
(1) 017322 000000 SHIOCT: .WORD 0 * HIGH ORDER BITS GO HERE 

2430 .SBTTL APT COMMUNICATIONS aoreld 
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DIAGNOSTIC MACY11 306(1063) 
APT COMMUNICATIONS ROUTINE 
017570 $ATY1: MOVB  #1,$FFLG 
017566 $ATY3: MOVB #1.$MFLG 
BR SATYC 
017570 $ATY4: MOVB  #1,$FFLG 
SATYC: 
MOV RO,-(SP) 
MOV R1,-(SP) 
TSTB ss SMFLLG 
BEQ 5$ 
001212 COPE #APTENV, SENV 
001213 BITB  #APTSPOOL,SENVM 
BEQ 3$ 
MOV a4(SP),RO 
000004 ADD #2,4(SP) 
1$ TST SMSGTYPE 
BNE 1$ 
MOV RO, $MSGAD 
2$: TSTB = (RO) + 
BNE 2$ 
SUB SMSGAD,RO 
ASR RO 
MOV RO, $MSGLGT 
001172 MOV #4, SMSGTYPE 
BR 5$ 
017500 3$ MOV a4(SP),4$ 
000004 ADD #2,4(SP) 
MOV 177776, -(SP) 
JSR PC, $TYPE 
4$: .WORD 0 
S$: 
10$ TSTB ~—s_ SFFLG 
BEQ 12$ 
TST SENV 
BEQ 12$ 
11$: TST SMSGTYPE 
BNE 11$ 
001174 MOV a4(SP),$FATAL 
000004 ADD #2,4(SP) 
INC SMSGTYPE 
12$: CLRB ss SFFLG 
CLRB = SLFLG 
CLRB = SMFLG 
MOV (SP)+,R1 
MOV (SP)+,RO 
TS PC 
SMFLG BYTE QO 
S$LFLG: .BYTE 0 
SFFLG: .BYTE 0 
APTS!I7E=200 
APTENV=001 


APTSPOOL=100 
APTCSUP=040 


-SBTTL TRAP DECODER 


C 6 
24-OCT-89 09:31 
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;;TO REPORT FATAL ERROR 
;;TO TYPE A MESSAGE 


;;TO ONLY REPORT FATAL ERROR 


;;PUSH RO ON STACK 
;;PUSK R1 ON STACK 
Se ONDT: ie A MESSAGE? 


IF NO 
: OPERATING UNDER APT? 
;; SHOULD SPOOL MESSAGES? 
OT: BR 


;1F N 
5 3GET MESSAGE ADDR. 
;;BUMP RETURN ADDR. 
+t IF F DONE W/ LAST XMISSION? 


put NADDR IN MAILBOX 
;;FIND END OF MESSAGE 


:;SUB START OF MESSAGE 

;;GET MESSAGE LNGTH IN WORDS 
::PUT LENGTH IN MAILBOX 
:;TELL APT TO TAKE MSG. 


-:PUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 

: PUSH 199776 ON STACK 

= CALL TYPE MACRO 


tinge “— FATAL ERROR? 
; N 
: ; RUNNING UNDER APT? 

NOT 


BR 
; FINISHED LAST MESSAGE? 
;I1F NOT: WAIT 

GET ERROR a 

;BUMP RETURN ADDR. 
>e VELL abi TO TAKE ERROR 
;;CLEAR FATAL FLAG 
;;CLEAR LOG FLAG 
;;CLEAR MESSAGE FLAG 
;;POP STACK INTO R1 
;;POP STACK INTO RO 


;LOG 
S TPATAL FLAG 


MAINDEC-11-CRLPB-3 
CRLPBB.P11 


PR LR LL Le Le me ee em em, i, mm i a mm my my ln, i, i nm my fm i, in, i, fn, Fm 


AAW A I, NIAAA NNW nS SS OSS OS OS ON 
ee ee ee ee a_i i 


017572 


017612 


017614 
017616 
017624 


017626 


017640 
017642 
017644 


017652 
017654 
020044 
020234 


020256 


26-SEP-80 


010046 
016600 000002 
005740 


111000 


096300 
016000 017626 
000200 


011646 
016666 
000002 


017222 
000074 
000074 
000074 


000240 


AA11-K 
13:52 


000004 


DIAGNOSTIC 


000002 


;peeeeeaararaeeeerereererereereeereeeeees 


D 6 
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TRAP DECODER 


SEQ 0068 


‘Raeeakaeeeeeeereaeeererest 


;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*GO TO THAT ROUTINE. 


STRAP: 


RO,-(SP) 
2(SP),RO 


RO 
STRPAD(RO) ,RO 
RO 


:; SAVE RO 

;:GET TRAP ADDRESS 
:;BACKUP BY 2 

:;GET RIGHT BYTE OF TRAP 
::POSITION FOR INDEXING 
;; INDEX TO TABLE 

::60 TO ROUTINE 


;:;THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 


STRAP2: MOV (SP) ,-(SP) 
MOV 4(SP),2(SP) 
RTI 

~SBTTL TRAP TABLE 


;;MOVE THE PC DOWN 
>;MOVE THE PSW DOWN 
;;RESTORE THE PSW 


*>*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THe ROUTINES CALLED 
;*BY THE ‘‘TRAP’’ INSTRUCTION. 


BUF 2: 
BUF 3: 


BUFFER: 


ROUTINE 


$TRPAD: . 
$ 


$STYPON 
STYPDS 


SGTSWR 


SCKSWR 
SRDCHR 
SRDLIN 
SRFDOCT 


-BLKW 
60. 


NOP 


STRAP2 
;;CALL=TYPE 
3; CALL=TYPUC 
;;CALL=TYPOS 
3; CALL=TYPON 
;;CALL=TYPDS 


;; CALL=GTSWR 


;; CALL=CKSWR 
;; CALL=RDCHR 
;;CALL=ROLIN 
;;CALL=RDOCT 


60. 
60. 


TRAP+1(104401) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAP +4 (104404) 
TRAP+5 (104405) 


TRAP +6 (104406) 


TRAP+7(104407) 

TRAP+10(104410) 
TRAP+11(104411) 
TRAP#+12(104412) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOF T-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 


** 

;*THIS SUB CODE IS USED TO INITIALIZE THE LPA-11 
;*FIRST WE WILL LOAD MICROCODE INTO KMC~-11 
S*NEXT WE WILL INIT BOTH UPROCESSORS 

;*THEN WE WILL LOAD DEVICE TABLE IN SLAVE UP. 
;*THE ORDER OF LOAD IS DETERMINED BY THE USER. 


MAIND, C- ~ CRLPB-B 


CRLPBB.P 


ee ee ee, a, a en, te a, a a a ed ed a ee a le ed ed a a i i ed a i dl 
PORIMY PRY POPPA POMP PONG MIPIPO MI POMPOM MI PAR PO ANNAN PO PO PO PO PY PO MY MY HMINMYININPONMYIPY PIP PYU PIP PeErrrrrryu 
eee ee ee ee ee ee ee ee ee ee ee ee a a eee eee ee 


020240 
020240 


020244 


020246 


020264 
020270 


020310 
020312 
020320 
020320 


0 
020340 


020342 
020350 


020352 
020354 


013746 
000413 


012737 


AA11-K nmemened -? 


26-SEP-80 13:52 


000004 


020272 
170000 
020266 


000004 
020726 
020730 


040000 


104000 


000040 


000004 


000004 


161044 


161026 


161014 


161006 


SLPAI: 


25%: 


3$: 


E 6 
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P TABLE 
:* CALL= JSR R5S,$LPAI 
3@ WOR 0 ;ADDR. OF DEVICE ADDRESS. 
;* ROUTINES REQUIRED: ~LOADLP 
;* PROGRAMS REQUIRED: DRLPX2 
‘@ 
;* :RETURNS WITH SAERR=1 IF SLAVE 
s@ - sMICRO SAYS AN ADDR. DOES NOT EXSIST. IN THE LIST. 
wy 
MOV 4,-(SP) 
BR 31$ sFIELD DOES NOT HAVE A BUS SWITCH TO 
WORRY ABOUT,SO WE WILL UNCONDITIONALLY 
: BRANCH ARROUD THE NEXT CODE THAT 
;WORKS BASED ON A BUS SWITCH. 
;CODE LEFT IN HERE FOR IN HOUSE 
: PERSONAL WHO MAY PATCH THIS BRANCH 
: INSTRUCTION TO A <NOP> OCTAL <240> 
> IN ORDER TO RUN PROGRAM WITH A SWITCH. 
:NOTE THIS ‘‘SWITCH'’ IS A PIECE OF INHOUSE 
: TEST EQUIPMENT ONLY IT CONNECTS 
; THE UNIBUS TO THE I/0 BUS FOR 
:CERTAIN TESTING. 
MOV #30$,4 
INC 170000 
TYPE 65$ :; TYPE ASCIZ STRING 
R 64% ::GET OVER THE ASCIZ 
ASCIZ <7>## 
BR 31$ 
CMP (SP)+,(SP)+ : 
MOV (SP)+,4 sALL THIS JUNK MUST BE REMOVED!! 
CLR SAERR 
JSR R5,$LOAD :LOAD MICRO-CODE. 
-WORD ODRLPX2 sFILE ‘‘DRLPX2.0BU"’ 
BIS #B11T14,aKMADO ; ISSUE KMC+DMC INIT. 
:'"HANGS'’ HERE THEN KMC-11 ERROR. 
MOV R1,-(SP) 
CLR R1 
INC R1 sSTALL FOR DMC-UP 
BNE 2$ 
MOV #B11T15'BI1T11,aKMADO -SET RUN, AND ENABLE ARBITRATION. 
INCB R1 
BNE 25% 
ee - ghlelaimten te :SLAVE READY? (READING IPBM SR) 
:FATAL LPA-11 ERROR SLAVE NOT READY. 
ERROR 
MOV #4 ,aKMAD2 >READ FAST PATH 


SEQ 0069 


.: 
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CRLPBB.P11 26-SEP-80 13:52 TRAP TABLE SEQ 0070 
(2) 020362 L$: 
3) 020362 004537 021640 JSR R=, $TOUT »=TOUT=CHECK FOR TIMEOUT 
(3) 020366 104000 ERROR :/TIME=OUT ERROR 
(3) “/WE FAILED TO COMPLETE 
(3) “/CURRENT OPERATION. 
(3) | :/CONTINUES IN THIS LOOP 
) :/WOULD MAKE US ‘'HANG'' HERE 
ey 020370 000774 BR 4$ 
(3) | : /RETURNS HERE-FROM-TIMED OUT. 
(2) 020372 122777 000377 160770 CMPR s#’ 377, @KMAD2 “WAIT TILL KMC DONE COMMAND. 
(2) 020400 001370 BNE i 
(2) 020402 122777 000377 160764 (MPR sW#’ 377, @KMAD4 -IF FAST PATH=377 THEN ERROR. 
(2) 020410 001001 BNE 35$ 
(2) 020412 104000 ERROR -IPBM ERROR (SLAVE SIDE) 
2) “YOU MUST RUN IPBM DIAGNOSTIC. 
(2) 020414 117737 160754 020674 35$:  MOVB  @KMAD4,11$ “GET THE VERSION NUMBER FROM DMC-11 
(2) 020422 005227 177777 INC t-1 
(2) 020426 001045 BNE 5$ 
(2) 020430 005227 177777 INC 1 
(2) 020434 001042 BNE 5$ 
(3) 020436 104401 020444 TYPE ,67% is TYPE ASCIZ STRING 
(3) 020442 000426 RR 66$ “GET OVER THE ASCI2Z 
(3) +:67$: .ASCIZ <200>'M8200-YC (DMC) MICROCODE VERSION NUMBER = "' 
(3) 020520 66$: 
(2) 020520 013746 020674 MOV 11$,-(SP) 
(2) 020524 104403 TYPOS 
(2) 020526 002 000 .BYTE 2,0 
(3) 020530 104401 020536 TYPE ,69% +: TYPE ASCIZ STRING 
(3) 020534 000402 BR 68$ “°GET OVER THE ASCIZ 
(3) ::69$: .ASCIZ <200>" “" 
(3) 020542 68$: 
(2) 020542 112737 177777 020674 5$: MOVB  #0-1,11% -DAC CODE FOR SLAVE. 
(2) 020550 012501 MOV (5)+.R1 “GET NEXT DEVICE ADDR. 
(2) 020552 021127 000000 6$: CMP (R1) #0 “TERM REACHED? 
(2) 020556 001444 BEQ 10% 
(2) 020560 105237 020674 INCB O18 
(2) 020564 113777 020674 160602 MOVB  11%,aKMAD4 “FIFO DATA 
(2) 020572 004737 020676 JSR PC, 208 “ISSUE SEND 
(2) 020576 112177 160572 MOVB  (Ri)+,@KMAD4 | :SEND LOW BYTE OF DEVICE ADDR TO SLAVE. 
(2) 020602 004737 020676 JSR PC ,20$ “ISSUE SEND 
(2) 020606 112177 160562 MOVB  (R1)+,@KMADG | :SEND HIGH BYTE OF DEVICE ADDR. TO SLAVE. 
(2) 020612 004737 020676 JSR PC 208 
(2) 920616 032777 000002 160540 7%: RIT #B1T1,aKMADO =; WAIT FOR FIFO DATA 
(2) 020624 001374 BNE 7$ =1 NO DATA. =0 DATA. 
(2) 020626 112777 000002 160534 MOVB  #2,aKMAD2 “READ FIFO. 
(2) 020634 8$: 
@ 020634 004537 021640 JSR RS, $TOUl »=TOUT-CHECK FOR TIMEOUT 
( @ 
(3) 020640 104000 ERROR -/TIME-QUT ERROR 


— + 


= mm 


ee ee ee ee ee ae ee ee ee ee ai ae ate ee at et a ee et ete et ae ae eee ee 
ROR PRORIARYAYS POPIAO ADAG PO AQMP PO PO NPI NINO RIN. ANN NN WANA WNI ID PO PO PI PIP PY PI PI MONI PI PIN NN ANNAAANWNWw 
a ae ee ne ee ne hh a ee 


020642 


020644 


020660 
020662 
020666 
020670 
020672 
020674 
020676 
020704 
020704 


020710 


020712 


020714 
020722 
020724 


020726 


020730 


020754 


MAINDEC-11-CRLPB-B 
PBB.P11 26-SEP-80 1 


000774 


122777 
001370 
105777 
001734 
005237 
005041 
012601 
000205 


000000 


112777 
004537 
104000 


000774 


122777 
001370 
000207 


000000 


010446 


012077 


000377 
160514 


020726 


000003 


021640 


000377 


160422 


160420 


AA11-K DIAGNOSTIC 
3:52 TRAP 


160516 


160464 


160446 


160410 2$: 


MACY11 30G6(1063) 
TABLE 


BR 8$ 


BNE 

TSTB QaKMADG 
BEG 6% 

INC SAERR 
CLR -(1) 

MOV (SP)+,R1 
RTS R5 

-WORD 0 


MOVB #3, aKMAD2 


JSR RS, $TOUT 
ERROR 

BR 21$ 
CMPB #377 ,aKMAD2 
BNE 21% 

RTS PC 


.WORD 0 


MOV R4,-(SP) 
MOV RO,-(SP) 
MOV (5)+,R0 
CLR ak MADO 


G 6 
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CMPB #377, aKMAD2 
8$ 


C @kKMAD4 
BIS #2000 , aKMADO 
MOV (0) + ,@KMAD6 
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;/WE FAILED TO COMPLETE 
:/CURRENT OPERATION. 
:/CONTINUES IN THIS LOOP 
:/WOULD MAKE US WANG" HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
;WAIT FOR READ. 


;WAS A ZERO RETURNED? 

;YES GET NEXT ADDR. 

;SLAVE WILL RETURN CODE 0 IF 
;DEV PRESENT. ELSE 

sEXIT SAERR=1 
;GET RID OF REFERENCE TO BAD ADDR. 


;RETURN ALL ADDR. CHECKED. 


;HOLDS DAC CODE PLUS OFFSET 
;TO SLAVES ADDR. TABLE. 


; ISSUE FIFO WRITE 
;~TOUT-CHECK FOR TIMEOUT 


;/TIME-OUT ERROR 

;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
;/CONTINUES IN THIS LOOP 
;/WOULD MAKE US ‘'HANG’’ HERE 


IF SLAVE GIVES ERROR. 


;/RETURNS HERE-FROM-TIMED OUT. 
:KMC CODE WILL RETURN A °°377"" 
WHEN DONE COMMAND. 


:=0 IF ADDR. LIST OK,=1 IF BAD. 


:eTHIS rr CODE 15h TO LOAD MICRO-CODE INTO LPA-11. 
a, ae ;ADDR. OF MICRO CODE. 
NOTE: iCRO CODE FILE MUST END IN -1 DATA. 


R5,$LOAD 
XX 


;SAVE R4. 

;SAVE RO. 

;GET PROG. ADDR. 
:CLEAR CSR 

sCLEAR CRAM ADDR. 
>SELECT CRAM. 
;sWRITE DATA. 


MAINDEC-11-CRLPB-B 
CRLPBB.P11 


LO OB PP LL LG em fe me fe hy he lm i, i m,n, i, m, 


PO RPIPIPS MI PIPIPYIMINPVIRPINIPY MPP POPU RIP PO POPPE rere rou renrrv 
mee eee ewes eee es ae ee ee a ee ee ee es es ee es ee 


(2) 


020760 


021010 
021014 


021046 
021050 
021052 
021054 


021056 


021064 
021066 


wn — 


ESEF VSENESE 


26-SEP-80 


052777 


016500 
052777 


000762 


012600 
012604 
000205 


005745 
105204 
100324 
000000 


000722 


010046 


AA11-K reatempenad °™ 


13:52 
venyes 
72 


160322 
160326 


000340 


160236 
000005 
52 


160214 


160376 


160342 


160246 


160224 


3$: 


4$: 


5$: 


STLKW: 


MACY11 306(1063) 
P TABLE 


“*THIS ROUTINE ISSUES A 
- 


#20000 ,aKMADO 
@KMADO 
@KMADSG 

(0) ao) 

2$ 


aK MADS 
-2(5),R0 


#2000 ,aKMADO 
iv)? anne 


5 
(0) ao) 
4$ 


ak MADO 
ak MAD 
3$ 


(SP)+,R0 
(SP)+#,RG 
R5 


JSR 
. WORD 
WORD 


RO,-(SP) 


CALL = 


(5 ,We 
(5)*,@kMAD4 


#5 ,aKMAD2 
PC,SLPW 


(5) ,W5 
(5), @KMAD4 


H 6 
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SEG 0072 


:SET CRAM WRITE 
;DISABLE CRAM, 


sUPDATE CRAM ADDR. 
sALL DONE? 


NO LOOP. 

CLEAR CRAM ADDR 

:GET MICRO CODE ADDR. 
DATA. OK? CRAM 


NO = REPORT AN ERROR. 
SALL DONE ? 


“YES - EXIT 
:NO - DESELECT CRAM, 
;UPDATE CRAM ADDR. 


;RESTORE RO 
sRESTORE RG 
sEXIT 


;COME HERE ON LOAD ERROR 


;UPDATE ERROR COUNTER. 
;1— NOT TOO MANY, 
>MICRO CODE LOAD ERROR. 
;KMC-11 FAULT. 
;TO PRESS CONTINUE TO GIVE IT 


TRY AGAIN. 
YOU COULD TRY 


;ANOTHER CHANCE, BUT | DOUBT 

; THAT THAT WOULD WORK. SINCE I'VE 
“ALREADY GIVEN IT 177 (OCTAL) CHANCES. 
;TRY RUNNING THE KMC-11 DIAGNOSTIC. 


WRITE COMMAND TO THE LPA-11 
R5,S$STLKW 
0 


;OFFSET OF DEVICE ADDR. 
;DATA TO BE WRITTEN 


;SAVE RO 
;GET eevee OFFSET 


;ADD WRITE CODE. 
;WAIT FOR FAST PATH READY 


; ISSUE FAST PATH WRITE 
;WAIT FOR RDY 


;WRITE LOW BYTE DATA, 
:FP WRITE 


;WRITE HIGH BYTE 


MAINDEC-11-CRLPB-B 
CRLPBB.P11 


Fe tie TE te, ti te te ce, te, ce, ce, ct, et, i et ee ee, i ed ed ee ed el el 


AN WANIWW WN POPPI PY PY PY PY PY PIP PONINI MINIM PY MI MIP PY PY PY POP 
wwe we we we eee ee ee es a we a a we ee es a a ee wa 


(3) 


tee ee ee en ten ee ee ae ae 
ROR AIA AIA AAW 
eee Ne Nee ee eee es 


021204 


021242 
021246 


021250 


021252 


021302 
021306 


021310 


26-SEP-80 


112777 


000000 


010046 


010037 
004537 
104000 


000774 


032777 


117737 


004537 
104000 


000774 


032777 
001370 


i paves‘ * 


13:5 


000005 
021352 


000300 


021546 
021640 


000040 
000004 
021352 
160074 


021640 


000040 


160202 


160136 


160104 
169100 
0215350 


160044 


STLKR: 


2$: 


MACY11 306(1063) 
P TABLE 


MOVB 
JSR 


#5,aKMAD2 
p Pw 


I 6 
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;EXIT DONE. 


-* 
s*THIS ROUTINE ISSUES A READ COMMAND TO THE LPA-11 


® 


CALL = JSR 
~W 


;eDATA IN WORD SDATR 


BIT 


RO,-(SP) 


PC, SLPW 
RO,RD1 


R5, $TOuU! 


1$ 


+ tame 
#4, aKMAD2 
PC, $LPW 
@KMAD4 ,SDATR 
RS, $TOUT 


2% 


#8115,aKMADO 
2$ 


R5,STLKR 
ORD 
by Upmie HERE 


;OFFSET OF DEVICE 


; SAVE RO 

;GET OFFSET 

;ADD READ CODE 
;WAIT TILL READY 


; ISSUE WRITE FP 


;~TOUT-CHECK FOR TIMEOUT 


;/TIME-OUT ERROR 

;/WE FAILED TO COMPLETE 
;/CURRENT OPERATION. 
;/CONTINUES IN THIS LOOP 
;/WOULD MAKE US ‘'HANG"’ 


HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
;FAST PATH GOT DATA? 


; ISSUE FAST PATH READ 
;GET LOW BYTE 
;~fOUT-CHECK FOR TIMEQUT 


;/TIME-OUT ERROR 
;/WE FAILED TO COMPLETE 


;/CURRENT OPERATION. 
:/CONTINUES IN THIS LOOP 
;/WOULD MAKE US HANG" HERE 


;/RETURNS HERE-FROM-TIMED OUT. 
;FAST PATH READY? 


- ————— 
- -- =- 


Pm me me le fl fle Pm fl me fl, mf me mm fm fm fl lm i me fn, fl mm mm my fm Pm ms fm fm fm Pm lm fl 
PROPIA RIAD ARE MIA AY PV MYA PINON [ODI WWII AIP POR, POPINMINPYIPY NPI MIMI MINIMA NMYI PIM PU No Mo MPV Prono fr nsr ror rors rr 
meee ewes es ee es eae ae es a se ee a es es es es ee eS we a es a ae ee a es as a ws we ee es eee eee ee ww 


021352 


021372 
021374 


021410 


021412 
021414 


021416 
021416 
021422 
021442 


021442 
021444 


ayy" -11-CRLPB-B 
P11 26-SEP-80 + 2° 


112777 


000000 


010146 
005001 
122777 
001403 
005201 
001372 
000411 


032777 
3 


000402 
012601 
000207 


104401 
000407 


000000 
000776 


000004 
2 


000377 


000020 


021424 


DIAGNOSTIC 
TRAP TA 


160040 
021351 


160004 


157762 
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MOVB #4 ,aKMAD2 ; ISSUE FAST PATH READ 


JSR PC ,SLPW 

MOVB @KMAD4 ,SDATR+1 ;SAVE HIGH BYTE 
MOV (S$P)+,RO 

RTS R5 

0 

WORD 0 


“THIS ROUTINE WAITS FOR KMC-CODE TO BECOME READY AS WELL 
“AS FAST PATH TO BE READ. 


CALL = JSR PC, $LPW 
“IT WILL TIME OUT IF TOO MUCH TIME IS TAKEN BY 


; THE MICRO=PROCESSORS AND REPORT AN ERROR, THEN HALT. 
MOV R1,-(SP) sSAVE R1 
CLR R1 
CMPB #377 ,aKMAD2 sFINISHED INSTRUCTiGN? 
BEQ 2$ 
INC R1 :TIME OUT? 
BNE 1$ 
BR 10% 
BIT #B114,aKMADO >FAST PATH READ? 
BEQ 
INC R1 :NO - TIME OUT? 
BNE 2$ 
BR 10% :YES - REPORT AN ERROR 
MOV (SP)+,R1 :RESTORE R1 
TS PC sEXIT 
TYPE vt : 3 TYPE ASCIZ STRING 


BR 64$ ;GET OVER THE ASCIZ 


ASCIZ CD00>#LPA=11 FAULTA 
HALT ;LPA-11 FAULT RUN LPA-11 
BR 11$ ;DIAGNOSTICS. 


SS THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 10 
;#A DEVICE ADDRESS ON THE 1/0 BUSS FOR WRITE ONLY. 


IRST WE WILL DETERMINE IF THE ADDRESS HAS BEEN USED 
. If * WE HAVE TO INITIALIZE THE LPA WITH 


IS KNOWN BY THE LPA, DO THE UUTPUT BY 
TLKW 


K 6 
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CRLPBB.P11 26-SEP-80 13:52 TRAP TABLE SEQ 0075 
(2) 021446 010046 SOUTLP: MOV RO,-<SP) ;SAVE RO 
s 021450 010146 MOV R1,-(SP) ;SAVE R1 
(2) 021452 012700 001412 MOV #.DVLS,RO ;PROGRAM DEFINED LIST. 
(2) 021456 005001 CLR R1 
(2) 021460 005710 1$: TST (0) ; TERMINATOR REACHED? 
(2) 021462 001421 BEQ 10$ :YES NEXT STEP. 
(2) 021464 027520 000000 CMP. a(5),(0)+ :MATCH WITH ADDR IN LIST? 
(2) 021470 001402 BEQ 2$ 
(2) 021472 005201 INC R1 
+s 021474 000771 BR 1$ 
(2) 021476 0101357 021514 2$: MOV R1,3$ ;SAVE OFFSET, DEVICE KNOWN. 
(2) 021502 005725 TST (5)+ . 
(2) 021504 013537 021516 MOV a(5)+,4$ ;GET DATA TO BE WRITTEN 
(2) 021510 1204537 021079 JSR R5,STLKW ;D0 WRITE 
(2) 021514 00000 3$: -WORD Q ;DEVICE OFFSET 
(2) 021516 000000 4$: -WORD 0 ;DATA TO BE WRITTEN. 
(2) 021520 012601 MOV (S$P)+,R1 
(2) 021522 012600 MOV (SP)+,RO 
(2) 021524 000205 RTS R5 
(2) 021526 017520 000000 10$: MOV a(5),(0)¢ ;SAVE ADDR. 
(2) 021532 005010 CLR (Q) 
(2) 021534 004537 020240 JSR RS, $LPAL 
(2) 021540 001412 -WORD .DVLS 
(2) 021542 000755 BR 2$ 
(3) 
(2) "*THIS ROUTINE PROVIDES THE LINKAGE FROM USER CODE 
is) s*T0 A DEVICE ADDR. ON THE 1/0 BUSS FOR READ ONLY. 
(2) SAF IRST WE WILL gh eee IF THE ADDRESS HAS BEEN 
(2) ;*USED BEFORE. IF , WE HAVE TO INITIALIZE THE LPA 
(2) | ;*WITH THE NEW ADD 
+ atin THE ADDR is "NOUN WE CAN DO OUTPUT THROUGH 
;*STLKR 
(2) t CALL THROUGH MOVEI DATA,ADDR. 
(2) 7¢ WHICH EQUALS: 
(2) :* JSR R5,$INLP 
(2) :* ~WORD XX ADDR OF DEVICE 
3 t :@ -WORD YY ADDR TO STORE READ DATA. 
(2) 021544 010046 SINLP: MOV RO,-(SP) ;SAVE RO 
‘3 021546 010146 MOV R1,-(SP) ;SAVE R1 
(2) 021550 012700 001412 MOV #.DVLS,RO ;PROG DEFINED ADDR. LIST. 
(2) 021554 005001 CLR R1 
(2) 021556 005710 1$: TST (0) ;EOL REACHED? 
ig) 021560 001420 BEQ 10$ ;YES - DEFINE NEW ADDR. 
(2) 021562 027520 000000 CMP a(5),(0)+ ;ADDR. MATCH? 
(2) 021566 001402 BEQ 2$ 
(2) 021570 005201 INC R1 
5h 021572 000771 BR 1$ 
(2) 021574 010157 021606 2$: MOV R1,5% ;SAVE LIST OFFSET 


MAINDEC- nt} Nae a 
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021600 
021602 


021606 
021610 


021620 
021622 


021636 


021640 


021666 
021672 


021674 
021676 


021700 


021712 
021716 
021720 


26-SEP-80 


005725 


000000 
013735 


000205 


017520 
005010 
004537 
001412 
000756 


020537 


000205 


000000 
000000 


000005 


005737 
001004 
062737 
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021204 


021350 


000000 
020240 


021674 


021674 
021676 


021676 
000004 


020726 


000002 021734 


$OFS=. 
3$: 


10$: 


STOUT: 


1$: 


2$: 
3$: 


SSAD: 
SCNT: 


SRESET: 
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TST (5)¢ 

JSR RS,STLKR ;GO READ DEVICE 
-WORD 0 sOFFSET OF DEVICE 
MOV SDATR,a(5)+ ;STORE DATA. 
MOV (SP)+,R1 *RESTORE R1 

MOV (SP)+,R0 sRESTORE R2 

RTS RS EXIT 

MOV a(5),(0)+ 

CLR (0) 

JSR RS,SLPAI 

. WORD DVLS 

BR 


IN 


EQ 1$ 

MOV R5,$SAD 
CLR SCNT 
BR 2$ 

INC SCNT 
BM! 3$ 
ADD #4 ,R5 
RTS R5 

WORD 0 

WORD Q 


:*$TOUT aie | USED TO_WATCH IF 


4 ati TOO-LONG 


CALL= JSR R5, $TOUT 
ERROR X ;RETURNS HERE ON TIMEOUT 


BR 
;RETURNS HERE NO ERROR 


;SAME ADDR? 


;NO-SAVE THIS ADDR. 
;CLR CNT AT ADDR. 


; OVERFLOW? 
:YES-ERROR RETURN 


:“NO- NON ERROR RETURN 
“RETURN. 


;CONTAINS LOOP ADDR. 
;# OF TIMES AT ADDR. 


;* 
;* THIS ROUTINE REPLACES WHAT THE USER WCULD ORDINARILY 


:*USE FOR A RESET. FIRST, 


WE DO A RESET INSTRUCTION. 


:*THEN WE CLR *’.DVLST" WHICH FORCES US TO RESET BOTH THE 


Pate AND DMC AS SOON AS 


A DEVICE IS REFERENCED. 


- CALL=JSR PC, $RESET 

i* -RETURNS HERE. 

RESET *RESET THE WORLD. 

MOV Q2%,1$ :/READ DEVICE REG 25. PUT DATA IN 1$. 
TST SAERR - IF NO ERROR,LOOP 

BNE 10$ “THERE WAS AN ERROR. 

ADD #2,2% ; UPDATE DEVICE A 


;YOU SEE ,WE HAVE. 16 PROTECT OUR SELF® 


:1F 2$ CONTAINED A VALID ADDR, WE 


“MUST KEEP TRYING UNTIL WE GENERATE 


;AN INVALID ADDR. 


REPLACES "'RESET INSTRUCTION 


SEQ 0076 
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eee a a a eee ee ew 


ee ee eee tele teteateteteletetetoetatotatetatoatetatatateteatstateteatoeteatetetetlenteateteteete, 
WANS PREPIARD FOP PONY ND NO POMP PI NIP PINPYINPIPYA PIPPI NINPINMI NI NIN PY NIP NIP MM Non MP pororoe nor rrr rwrrr 
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Le] 


021726 
0 


021734 


021736 


021772 
021776 
022000 
022004 
022006 
022010 
022012 


022016 
022020 


022022 


022032 


000764 
000207 


000000 
160000 


005737 


005077 
000207 


000207 
000000 
005337 


000002 
000000 


005037 


104401 
000405 
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022020 
000002 
000115 
177776 
022010 


000022 


022010 


022010 


001412 
022034 


022010 
000040 


SDELAY: 


1$: 


10$: 


TIME: 


CLKINT: 
RTCCSR: 


SUTK: 
21$: 


37658: 
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MACY11 306(1063) FAGE 8-16 
P TABLE 
BR SRESET 
RTS PC 
.WORD 0 Xs : JUNK LOC. 
WORD 160000 :DUMB ADDR. FORCES INIT OF DMC/KMC. 


: SDELAY- ROUTINE TO GIVE A MINOR DELAY. 


; IS NOT TIME DEPENDENT CODE SENCE 
; NOT USED TO GET SPECIFIC TIME BUT 
; JUST A LITTLE DELAY. 


THAT IS UNLESS A REAL TIME CLOCK IS PRESENT! 
THEN WE'LL GENERATE A TIME BETWEEN 16MS TO 32 MS 


CALL= JSR PC, SDELAY 


TST RTCCSR ;CLOCK PRESENT? 


BPL 10$ 

MOV #2, TIME 

BiS #115,aRTCCSR ;START CLOCK 
CLR PS 

TST TIME 

BNE 1$ 

CLR @RTCCSR ;STOP CLOCK 
RTS P 

INCB TIME 

BNE 10% 

RTS PC 

-WORD 0 

DEC TIME 

RTI 

-WORD 0 ;CLOCK CSR IF USED. 


*® 
>*THIS MACRO ALLOWS THE OPERATOR TO TALK T0 
;*ANY DEVICE ON THE 1/0 BUS 
ee MUST START AT THIS ADDR. 
—E MUST SAY EITHER “'E’’ FOR EXAMINE, OR ‘'D'’ FOR DEPOSIT. 
tee" 1S DEFAULT. 
:*NEXT, HE MUST SUPPLY AN ADDR. 
:*NOTE IF ADDR. IS NOT FOUND ON I/O BUS, A HALT 
S*WILL OCCUR. 


CLR -DVLS 

TYPE ,65$ :: TYPE ASCIZ STRING 
BR 64% -:GET OVER THE ASCIZ 
-ASCIZ <200>#E OR D?4 


SEQ 0077 


N 6 
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26-SEP-80 13:52 TRAP TABLE SEQ 0078 
(3) 022046 64$: 
(2) 022066 105777 157072 1$: TSTB 3s ASTKS 
(2) 022052 100375 BPL 1 
(2) 022054 117737 157066 022176 MOVB a$TKB,20$ :GET INP 
(2) 022062 104401 022176 TYPE, 20% “ECHO, Next MESSAGE. 
(2) 022066 142737 000240 022176 BICB. #240,20% “STRIP PARITY, LC 
(2) 022074 104412 RDOCT :GET ADD. 
(2) 022076 012637 022174 MOV (SP) +, 148 
(2) 022102 123727 022176 000104 CMPB 208, #*D : DEPOSIT? 
2) 022110 001411 BEQ 10$ 
(2) 022112 004537 021544 JSR R5,$INLP :GET DATA 
(2) 022116 022174 2$: ,WORD 14 
(2) 022120 022132 “WORD 5$ 
(3) 022122 013746 022132 MOV 5$,-(SP) -:SAVE 5$ FOR TYPEOUT 
(3) 022126 104402 TYPOC -*GO TYPE=-OCTAL ASCII(ALL DIGITS) 
(2) 022130 000736 BR 21$ “LOOP. 
(2) 022132 000000 . 5$: “WORD 0 
(2) 022134 10$: 
(3) 022134 104401 022142 TYPE ,67$ :;TYPE ASCIZ STRING 
(3) 022140 000404 BR 66$ <:GET OVER THE ASCIZ 
(3) ::67$: .ASCIZ <200>#DATA= # 
(3) 022152 46$: 
(2) 022152 104412 RDOCT 
(2) 022154 012637 022172 MOV (SP)+,13$ 
(2) 022160 004537 021446 11$: JSR RS, $OUTLP :OUTPUT ROUTINE. 
(2) 022164 022174 12$: \WORD 14 “DEVICE ADDR. 
(2) 022166 022172 “WORD 138 “DATA 
(2) 022170 000716 BR 21$ 
d 
(2) 022172 000000 13$: ,WORD 0 
(2) 022174 000000 14$: “WORD 0 
(2) 022176 109001 042504 044526 cds: “ASCIZ <1><200>#DEVICE ADDR= # 
(2) 022204 042503 040440 042104 
(2) 022212 036522 000040 
(2) EVEN 
(2) 
(1) 
3 
(2) “THIS ROUTINE LOOKS THROUGH CURENT -DVLS FOR A/D ADDR. 
(2) SIF UNFOUND, GENERATES IT. THIS ROUTINE'S WHOLE PURPOSE IS 
(2) “TO SET UP THE USER PROGRAM TO LINK TO FILE ‘DRLPX2"’ FOR 
(2) : SAMPLE TAKE LNG PURPOSES. 
(2) : TAKE SAMPLES, THE USER PROGRAM MUST SET UP 
(2) yA CSR IN BSEL D5. 
(2) (2) HE MUST ate tuts ROUTINE : 
(2) JSR RS, $PUTS -CALL SET UP ROUTINE. 
(2) ‘WORD ADCSR “ADDR. OF A/D CSR. 
(2) “RETURNS HERE ; KIC BSEL 3.6,? PERMINENTLY, SET UP 
2 : :(UNTILL ONE DOES A RESET 
(2) 2 
(2) (3) THE USER MUST PUT CODE 006 INTO KMC REG 2 10 
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MAINDEC-11-CRLPB-B AAI1=K DIAGNOSTIC 
CRLPBB.P11 26-SEP-80 13:52 TRAP TABLE SEQ 0079 
(2) : START CONVERSION CAUTION*DO WITH MOVB INSTR.! 
(2) : (4)MONITOR KMC REG 2 FOR CODE 377 (DRLPX2 IS DONE) 
(2) : (S)READ KMC REG 4,5 FOR A/D RESULT. . 
(2) : (6) TO TAKE MORE SAMPLES,SIMPLY PUT A/D CSR INTO 
is} j BSEL 4,5 AND CODE 6 INTO BSEL 2. 
(2) 022216 012537 022226 S$PUTS: MOV (5)+,1$8 :GET ADDR OF ADDR. OF A/D 
(2) Q22222 004537 021544 JSR RS,SINLP 
(2) 022226 000000 1$: -WORD 0 
(2) 022230 022324 -WORD 10% 
(2) 022232 113777 021606 157140 MOVB SOFS,aKMAD6 
(2) 022240 113777 021606 157134 sae: SOFS,aKMAD7 
(2) 022246 013737 022226 022266 MOV 1$,2$ 
(2) 022254 062737 000002 022266 ADD #2,2$ 
(2) 022262 004537 021544 JSR RS,SINLP 
(2) 022266 000000 2$: -WORD 0 
(2) 022270 022324 . WORD 10$ , 
(2) 022272 113777 021606 157072 MOVB SOFS,aKMAD3 
(2) 022300 152777 000340 157072 BISB #340 ,aKMAD6 
(2) 022306 152777 000300 157066 B1SB #300 ,aKMAD7 
(2) 022314 152777 000300 157050 B1SB #300,aKMAD3 
(2) 022322 000205 RTS R5 
‘s 022324 000000 10$: -WORD OQ 
2440 000001 ~ END 
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170416 


100360 
0000 
001526 
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2309 
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‘CRLPBB.P11 13:52 CROSS REFERENCE TABLE -= USER SYMBOLS c£Q 0081 

BEGIN 001502 1185 1265 

BEGINI 001520 1186 1269 2422 

B1T0 = 000001 1177# 1674 

BITO0O = 000001 11778 

IBITO1 = 000002 11778 

'BITO2 = 000004 11778 

'BITO3 = 000010 11778 

BIT04 = 000020 11778 

BITOS = 000040 11778 

BiT06 = 000100 11774 

B1T07 = 000200 11778 

BITO8 = 000400 1177# 2618 

B1T09 = 001000 11778 

BIT1 = 000002 1177# 1570 1572 1767 2639 

BIT10 = 002000 1177# 1653 1655 1732. 1756 2250 2289 

BIT11 = 004000 1177# 1441 1666 1492 1519 1662 1666 1756 2439 

BIT12 = 010000 1177# 1728 1734 2253 

BIT13 = 020000 1177# 2148 «=. 2156 S419 

BIT14 = 040000 1177# 1981 2152 2156 2418 2439 

BIT15 = 100000 1177# 1381 ©2439 

BIT2 = 000004 1177# 1586 1588 #1685 1686 1695 1702 1747 

BIT3 = 000010 11774 1603 1605 #1709 «+1710 #1718 1724 1747 

BIT4 = 000020 1177# 1620 1622 1747 41824 1836 1866 1856 1930 2059 2111 2639 

BITS = 000040 1177# 2248 2257 2439 

BIT6 = 000100 1177# 1635 1637 1756 

BiT7 = 000200 1177# 1562 1572 1579 1588 1595 1605 1613 1622 1629 1637 1646 1655 
1664 1676 1685 1702 1709 #41724 + «+1769 #4241758 1856 

BIT8 = 000400 1177# ©2312 

BIT9 = 001000 1177# 1646 1646 1756 

BPTVEC= 000014 11778 

BRLEV] 014636 1301* 1302" 1303 2335* 2336*  2409# 

BRLEV2 014640 1303* 1304* 24104 

BUFFER 020234 24 36 

BUF2 017654 24348 

BUF3 020044 24358 

CALDAC 011532 1345 22078 

CALDON 014304 23854 

CHRCOL 011020 20994 

CHTIME 012354 1902 1920 1958 2035 23354 | 

CKSWR = 104407 1322 2141 2209 2223 2247 2271 2299 2308 2618 2619 2432m 

CLKINT 022012 24394 

CLRVC 011732 22478 

CONTC 014113 134 2376# 

CPTYPE 012400 2335 23424 

CR = 000015 1177# 2427 

CRLF = 000200 1177# 2627 

CSPACE 011452 21894 2190 2201 

CTRLC 002346 1316 «1347# =02183—Ss 2195 

DACO =: 001466 1258@ 1291 1612 1426 1427 1434 1635 1442 1643 1529 1539 1697 1767 
1770 1817 1868 1895 1914 1959 2036 2113 2146 2213 2231 2287 2393 

DAC! 001470 1259# 1416 1651 1652 14659 1460 1467 1468 1531 15465 1720 1777 ~= 1780 
1818  1869* 1896 1913 1960 2087 2115 2150 22146 2232 2288 2394 

DAC2 001472 1260# 14616 1677 1678 1485 1486 1493 14694 1533 1551 1787 11790 #1819 
1870¢ 1899 1918 1963 2040 2117 2154 2215 2233 2284 2395 

DAC3 = 001474 1261#@ 1618 1504 1505 1512 1513 1520 1521 1535 1557 1797 1800 1820 
1871* 1900 1917 1964 2041 2119 2158 2216 2234 2285 239% 
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DDISP = 177570 
DELAY 001460 
DFO 014600 
DH1 013756 
DH13 0140245 
DH14 014060 
DH6 014012 
DISPLA 001142 
DISPRE 000174 
DRLPX2= seeee8 
DSWR = 177570 
DT1 014464 
DT13 014554 
DT14 014566 
DT2 014476 
DT3 014510 
DT4 014522 
DTS 014534 
DT6 014546 
DYNCAL 011622 
EMTVEC= 000030 
EM1 013450 
EM10 013635 
EM11 013706 
EM13 013735 
EM2 013501 
EM3 013530 
EM4 013557 
EMS 013606 
ERRVEC= 000004 
EVER 014642 
EVER1 014644 
FOUND1 014121 
FOUND2 014145 
FULRMP 011024 
NS = ketene 
GTSWR = 104406 
HIGH 014622 
HT = 000011 
INCR 014624 
INIT: 002176 
IOTVEC= 000020 
IV 01476 
Ivs 001500 
KMADO 01364 
KMAD1 001366 
KMAD2 001370 
KMAD3 001572 
KMAD4 001574 
KMADS 001376 
KMAD6 001400 
KMAD7 01402 
LDTRAP 002014 
LF = 000012 
LOADVC 012110 
OW 014620 
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ee 
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24198 


2107 


2418+ 
1383 


1299 


2137 


mr 
Ww 
Coro 


1244 1250 
237084 


1865 2398 24114 


1872* 


2208 2222 


240084 


SEQ 0082 


MAINDEC-11-CRLPB-B 
26-SEP-80 


CRLPBB.P11 
LPADH 001376 
LPADL 001374 
LPC] 001364 
LPCO 001370 
LPMR 001366 
LPMS1 001400 
‘LPMS2 001402 
LPSO 001372 
LTEST 002542 
MANHED 014343 
MANUL 011210 
MC 02174 
MD 02172 
MESIS 013133 
MESS 013036 
ME S6 013103 
ML 02170 
MTEST 002360 
OPRIN 014646 
PBB «007330 
PICO 007142 
PIC! 007242 
PIC3 == 007564 
PIC4 010322 
PIC4B 010352 
PIC6 =: 011024 
PIRQ = 177772 
PIRQVE= 000240 
PRO = 000000 
PRI = 000040 
PR2 = 000100 
PRS == 000140 
PR4 = = 000200 
PRS = = 000240 
PR6 = 000300 
PR7 == 000340 
PS = - 177776 
PSW = 177776 
PWRMSG 015670 
PWRVEC= 000024 
p3 007664 
PSA 010012 
P38 010072 
P3C 010152 
P3D 010232 
P4 010422 
PGA 010550 
P4B 010672 
P7CNT 014650 
P7PNT 014652 
QMARK 014105 
| ROCHR = 104410 
| ROLIN = 104611 
RDOCT = 104412 
RDI 021346 
| RESVEC= 000010 
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24398 


2422* 
1991 


2070 


23754 
243284 


ee. 
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ROUTPT 012342 
RTCCSR 022020 
ROX 007230 
ROY 007234 
RIX 007236 
RIY 007232 
/R2Y 007240 
'SDELAY 021736 
'SELD01 014172 
SELD23 014237 
STACK = 001100 
STAT 001464 
| 
| 
| 
STKLMT= 177774 
SwWR 001140 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
SWO1 = 000002 
SWO2 = 000004 
SwO3 = 000010 
SWwO4 = 000020 
$405 = 000040 
SwO6 = 000100 
SwO7 = 000200 
SwO8 = 000400 
SwO9 = 001000 
SwW1 = 000002 
SW10 = 002000 
SW11 = 004000 
SWw12 = 010000 
Sw13 = 020000 
SW14 = 040000 
SwW15 = 100000 
SW2 = 000004 
suvS is 010 
SW4 = 000020 
SWw5 = 000040 
SW6 == 000100 
SW7 = 000200 
SW8 = 000400 
SW9 = 001000 
TBITVE= 000014 
TEMP 014632 
| TEMP) 014634 
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1899* 


1897 


1765 
1822 
2267 
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19074 


1915 


1775 
1844 


1315 


24084 


1913* 
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1961 


1785 
1927 


1731* 


1917* 


2038 


1795 
1978 


1759* 


1940 


1983 


2282 


1817 
2056 


24068 


1942 


1985 


1818 
2108 


1819 
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2113+ 


2007 


2018 


1820 


2115* 


2036* 


2037* 


1935 


2117* 


2040+ 


2041* 


1967 


21198 


2048 


2047 


2044 


SEQ 0084 


2124 


2051 


2052 
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CRLPBB.P11 
TICKS 014630 
TIME 022010 
TIMER 012246 
TIMERA 012262 
TIMER1 0123504 
TIMER2 012306 
TIMERS 012336 
TIMSV 014626 
TITLE 012402 
TKVEC = 000060 
TPVEC = 000064 
TRAPVE= 000034 
TRIVEC= 000014 
TST1 002544 
TST10 03216 
TST11 003256 
TST12 003320 
TST13 003370 
TST14 003430 
TST15 003472 
TST16 0 ©=—©.00 33542 
TST17 ©004012 
TST2 002672 
TST20 004050 
TST21 004166 
TST22 004304 
TST235 004422 
TST24 004540 
TST25 004610 
TST26 004660 
TST27 004730 
TST3 002732 
TST3U 005000 
TST31 005060 
TST32 005206 
TST33 = 005334 
TST34 «©005444 
TST35 005520 
TST3604=—6. 005574 
TST37 005656 
TST4 002774 
TST40 §=—005 740 
TST41 006020 
TST42 006100 
TST43 061 
TST44 0625 
TST45 006334 
TST46 §©00642 
TST47 §=©006554 
TST5 003044 
TSTSO 006672 
TST6 003104 
TS17 003146 
TYPDS = 104405 
TYPE = 104401 


a 
rr eee ae 
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Nm 
wolf & ow 


1919* 
1922 


23178 
23228 


2312 

23478 
1272+ 
14074 


14834 
14914 
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co NWO 
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1957* 
2026 


2322s 


1839 


1347 
2426 


2088 


23238 


18434 


1372 
2427 


2314* 
23088 


2324+ 


1378 
2428 


2338+ 


2325¢ 


1877 
24328 


24058 


2327 


1889 
2439 


C4048 


1891 
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20348 


2138 


2199 


2269 


2417 


SEQ 0085 


2419 


- a ee ee ee ee 
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MAINDEC-11-CRLPB-B AAl1- 
CRLPBB.P11 26-SEP-80 13:52 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0086 
TYPOC = 104402 2420 2428 24328 2439 
TYPON = 104404 24328 
TYPOS = 104403 1375 24328 2439 
VADDR 001454 12534 1360 1867 1868 1869 18706 1871 
VCXTMP 011010 20954 
VCYTMP 011012 20964 
VECTOR 001404 12524 
VECTPS 001406 12524 
VERSN 001410 12524 
VISUAL 007114 1342 18864 
VVECT 001456 12544 1872 1873 
'WAITIN 002222 13214 1339 1350 
Ww 021176 243988 
We 021200 2435988 
W3 021202 243988 
XPOS 011016 20984 
YPOS 011014 20974 
YPT 011022 21004 ‘ 
SAERR 020726 1358 2439H* 
SAPTHD 001000 11934 
SASTAT= seeee8 UJ 2430 
SATYC 017350 24304 
SATY1 017324 24304 
SATY5 017332 2427 24304 
SATY4 017342 2419 2435084 
SAUTOB 001134 11944 1370 2428 
SBASE 001246 11944 1288 1354 
SBDADR 001122 11944 
S$BDDAT 001126 11944 1354* 1357 1360* 1427 1428 1435 1436 1443 1444 1452 1453 1460 
1461 1468 1469 1478 1479 1486 1487 1494 1495 1505 1506 1513 1514 
1521 1522 1539 1540 1545 1546 1551 1552 1557 1558 1564 1565 1573 
1574 1580 1581 1589 1590 1596 1597 1606 1607 1614 1615 1623 1624 
1630 1631 1638 1629 1647 1648 1656 1657 1665 1666 1677 1678 1688 
1689 1698 1700 1712 1713 1721 1722 1751 1752 1760 1761 1770 1771 
1780 1781 1790 1791 1800 1801 1817 1818 1819 1820 1837 1838 1857 
2163* 2164 2169 2392 2393 2394 2395 2396 2399 
$CDW1 001252 11944 
SCHARC 016442 2427H* 
SCKSWR 016446 24288 2432 
SCMTAG 001100 11944 1272 
$cMi = 000002 11944 
$CM2 = 000004 11944 
$cM3 = 000002 11944 
SCNT 021676 24398* 
SCNTLG 017173 24284 
SCNTILU 017166 24284 
$CPUOP 001220 11944 
SCRLF 001167 1194# 2619 2420 2427 24628 
SDATR 021550 243988 
SDBLK 015070 24178 
| SDEVCT 001202 11944 
SDEVM G012 11944 
SDOAGN 007070 18774 
SOTBL 015060 24178 
$ENDAD 007060 1191 18774 


SENDCT 007026 1877a 


, ¥ 
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CRLPBB.P11 26-SEP-80 3 52 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0087 
SENDMG 007077 18778 
SENULL 007074 18778 
$SENV 001212 1194# 2619 2627 2430 
SENVM 001213 1194# 1272 2627 2430 
$EOP 006776 1866 18778 
SEOPCT 007020 18778 
SERFLG 001103 1194# 2618 24198 
SERMAX 001115 1194# 2418: 
'SERROR 015232 1272 2419" 
SERRPC 001116 1194# 2392 2393 2394 2395 2796 2397 2398 2399 2619* 2420 
SERRTB 001254 1194# 2420 
SERRTY 075362 2419 24208 
SERTTL 001112 1194# 2419s 
‘SETABL 001212 11948 
$SETEND 001254 1193 1194 
SFATAL 001174 1194" 24630 
$FFLG 017570 2430#* 
SFILLC 001156 1194# 2427 
$FILLS 001155 1194# 2427 
$GDADR 001120 11944 
$GDDAT 001124 1194# 1625" 1626 1428 1433* 1636 1436 14418 1642 14446 . 1447 14508 1651 
1453 1658* «1459. «= «1461. s«1466* «14671469 1672* «= 1476" «= 14771479 1484" = 1485 
1487 1492" «1493 1495 = 1498* »=: 1503" 1506 = 1506) 1517 = 15121514 1519* = 1620 
| 1522 1525* 1538 1560 1544* 1546 1550 1552 1556# 1558  1562* 1565 15728 
1574 1579* 1581 1588 1590 1595* 1597 1605* 1607 1613* 1615 1622" 1624 
| 1629* 1631 1637" 1639 1646* 1648 1655* 1657 1064" 1666 1673* 1676* 1678 
| 1685* 1695* 1702" 1709* 1718 17246" 1769 1752 1758" 1761 1768* 1771 = 17788 
1781 1788* 1798* 1817* 1818* 1819* 1820* 1836" 1838  1856* 1943 1944* 1945 
2162 2164 2168* 2169 2392 2393 2394 2395 2396 2399 
$6 142 007050 18778 
$GTSWR 016516 2428H 2432 
$HD = 000000 1176 
$HIB1S 001000 11934 
$HIOCT 017322 2429a* 
SICNT 001104 11948 
$ILLUP 015662 2422# 
SINLP 021544 1357, 1410 1412,Ss*d1414 14161618 = 1427) 1435 1643 1452 1460) 1468) 1478 
1406 1404 —iC«SNSOS (“STS 9827 1598) 9S4S 95S) NSS?) | 1SGA STD SSO. CL SOF 
1596 1606 1614 1623 1630 1638 1647 1656 1665 1677 1688 1698 1712 
| 1721-173 1751 1760 1770 +1780 1790 1800 1817 1818 1819 1820 1826 
1830 1837 1851 1857 1929 1943 1980 1983 1986 i994 1997 2005 2008 
2016 «=. 2019-Sfs«s«2058 = 2061S 2064 ~=—S ss 2077,—Ss 20080) 2083) Ss 2110s 2252. 2259 398 
SINTAG 001135 1194" 2428 : 
SITEMB 001114 1194# 2619" 2420 
SLF 001170 1194# 2419 2427 2628 
$LFLG 017567 2430#* 
$LOAD 020730 24398 
SLPADR 001106 1194# 1272* 1408* 24188 
$LPAl 020240 24398 
$LPERR 001110 1194" 
| 021352 24 39a 
SMADRI 001224 11948 
| $MADR2 001230 1194" 
SMADR3 001234 11948 
SMADR4 001240 11948 
$MAIL 001172 1193 1194 = 1272, 2418 = 2419 2427 


Ba 
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MAINDEC-11-CRLPB-B AA 
CRLPBB.P11 26-SEP-80 13:52 CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0088 
SMAMS1 001222 11944 
SMAMS2 001226 11944 
SMAMS3 001232 11944 
SMAMS4 001236 11944 
SMBADR 001002 11938 
SMFLG 017566 24308 
Ew 017211 24284 
'SMSGAD 001206 1194# 24308 
SMSGLG 001210 11944 2430* 
SMSGTY 001172 11944 2430* 
SMSWR 017200 24284 
SMTYP1 001223 11944 
SMTYP2 001227 11944 
Satves 001233 11944 
SMTYP4 001237 11944 
SNULL 001154 11944 2427 
SNWTST= 000001 14074 14244 14324 14408 14498 14574 14654 14754 14834 14914 15024 15104 15184 
15274 15614 15694 15854 16024 16194 16344 16434 16524 16614 16704 16828 17064 
| aioe 17464 17554 17644 17748 17844 17948 181784 18184 18194 182C# 18218 18434 
SOCNT 016160 24264 
SOFS = 021606 24398 
SOMODE 016162 24268* 
SOUTLP 021446 1426 1434 1442 1451 1459 1467 1477 1485 1493 1504 1512 1520 1529 
1531 1533 1535 1537 1571 1578 1587 1594 1604 1612 1621 1628 1636 
1645 1654 1663 1675 1687 1697 1711 1720 1733 1735 1748 1757 1767 
1777 1787 1797 1817 1818 1819 1820 1825 1828 1847 1850 1926 1931 
1938 1940 1942 1945 1950 1951 1956 1970 1971 1974 1975 1982 1985 
1988 1996 1999 2007 2010 2018 2021 2033 2047 2048 2051 2052 2060 
2063 2066 2067 2073 2075 2079 2082 2085 2112 2124 2126 2164 2169 
2213 2214 2215 2216 2231 2232 2233 2234 2251 2254 2279 24398 
SOVER 015216 c4184 7 
SPASS 001200 11944 1272* 1349* 1877* 
SPASTM 001006 11934 
SPUTS 022216 24398 
SPWRAD 015656 24228 
SPWRDON 015516 1272 24228 
SPWRMG 015652 24228 
SPWRUP 015570 24228 
SQUES 001166 11944 2419 2427 2428 
SRDCHR 0167350 24288 2432 
SRODEC= seeeee 2432 
SRDLIN 017050 24284 2432 
S$RDOCT 017222 24298 2432 
$RDSZ = 000010 24288 
SREGAD 001160 11944 
S$REGO 001162 11944 
SREG1 001164 11944 
SRESET 021700 5} 1750 1759 1769 1779 1789 1799 1817 1818 1819 1820 1860 1863 
| 
SRTNAD 007072 18778 
SR2A = weeeree | 432 
$SAD 021674 2439M8 
SSAVRE= eeeeee J 2432 
SSAVR6 015666 2422e* 


'$SCOPE 015100 1272 24184 


. # 
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CRLPBB.P11 26-SEP-80 

$SETUP= 600117 1196# 12718 1272 «1877 »=—- 2418 = 2419 2628 

$STUP = 177777 1196@ 12718 

SSVLAD 015174 24188 

$SVPC = 000220 11918 

$SWR = 160400 1155@ 1176 1188 1196 1272 1607 1626 1632 1660 1869 1657 1665 1475 
1683 1491 1502 1510 1518 1527 1561 1569 1585 1602 1619 1634 1643 

: 1652 1661. ~=S«s«1670~S's«*26B2~=sé«i‘z#?#O6®©O«4173?)~—~«*1746St*=<~SNTSS~:«*‘HSC*«‘(??GOC«M7BGOt«d79%~SC*«*‘BYVP? 
1818 1819 1820 1821 1848 1862 1877 2618 2419 24622 

$SWREG 001214 1194# 1272 

$SWRMK= 000000 1183 2418 

STESTIN 001176 11944 24618 

$TKB 007146 1194@ 2179 2191 +—2628-~—S—s 2439 

$TKS 001144 1194# 2177 2189 2628 2439 

STLKR 021204 24398 

STLKW 021070 34398 

STMDAT 001462 12564 1357.2 1410—Ss«4H11s—i‘2S”s:—=«~iBiTGSCi«*SS = «1616 )S2G17——«d21BSCO*dGT19s«*1'5: 28 
1529. 1530® «1531. Ss«d1532* «= 1538.—Ss«d1S3Ge «1535. s«1536* 1537 1570" «1571 =Ss«*1577* ~=—-1578 
1586* 1587 1593% 7594 1603" 1606 1611" 1612 16208 1621 1627 1628 16358 
1636 1644" «1645. s«1653" «1654 s«1662* «'1663—Ss«*1674*® =«=««1675~—Ss«*1686*® ««1687—s«*1696* ~—-:1697 
1710* 1711 «1719* ~=«1720=S'”s«*1732*=«d1733~~*«‘i7BMRO1735)~=Ci«1736~C*«*7B7:s«*dN'7MZ7® = «1748 ~—SOt«*7°56 8 
1757. -1766* +«1767.~S«1776* ~=s«1777”~*é=“‘«‘27BH*®~=C«d17B7?~=~sé«‘I?96*~=sC«d17970)2~*«SiBA7® = 181Be® «= 1819* =: 1820 
1824* 1825 1826 1827* 1828 1830 1831 1846* 1847 1849* 1850 1851 19258 
1996 19299 1930* 1931 1987 1938  1939% 1940 1941* 1962 1946 1949* 1950 
1961 1955* 1956 1969* 1970 1971 1973* 1974 1975 1980 1981" 1982 1983 
1984* 1985 1986 1987* 1988 1994 1995" 1996 1997 1998 1999 2005 2006 
2007 —«-2008-~=S—s«2009*»=«-2010-Ss«2016~Ss—«017* ~=s 2018 ~S— 2019S 2020* «= 2021Ss«2032* «=: 2033 Ss 2046 
5047 3048 2050" 2051 2052 2058 2059* 2060 2061 2062* 2063 2064 2065* 
5066 —«2067S's«i072* =«=s«2073.—Stsi«i7M* «3075 ~Ss«2077Sts«2078* «=: 2079 «Ss«2080)=Ss«2081* 2082 ~Ss 2083 
5084* 9085 3110 3117* «31129123 3126 2125" «21262127? 212 «2218 2214 
2215 221622512282 5233 «= 5234 «= «3250e «29251 Ss«23252.Sss«2253e «2254 = 2259 ~—Ss 2260 

® 

SIN = 000051 11564 1176 1367 1607# 14248 1629 1632 1437 1640 16498 16546 16578 1462 
14654 1475# 1480 16834 1488 14918 1502# 1507. 1510# 1515 15188 1527# 1559 
15614 1566 15694 1582 15858 1598 1602 1616 16198 1632 16344 1640 16438 
1649 1652 1658 1661@ 1667 16708 1679 16824 1693 1701 1706 1717 ~~ 1723 
17274 1729 ~=—«17388~St*é«‘(7GGMO1753~~C«*75SH#~O«d1762.—~—t«i«‘w76}MMC«d1765~*«<‘77ZSs«*dN‘7GMC*N7S «BO 
1784# 1785 «41792 ~«=«1794# ~«=«'1795.~=té«“‘(802 = 1817#~=«1818# =«1819" «1 B20# «=—«1B21# = 1823)—Ss«é1835 
1839 18463# 1845 1862 

STOUT 021640 24398 

$TPB. «001152 11944  2627* 

STPFLG 001157 11944 2427 

$TPS. 001150 1194@ 3427 

STRAP 017572 24 32H 

$TRAP2 017614 24328 

$TRP = 00001 24328 

STRPAD 017626 24328 

STSTM 001004 11938 

STSTNM 001102 11948 1874" 1877* 2418* 2419 

STTYIN 017156 24288 

STYPBN= teteee Y 2432 

STYPDS 014654 417% 2432 

STYPE 016164 5427# «= 2430 2432 

STYPEC 016376 5427H = 2428 

STYPEX 016444 427M 

$TYPOC 015762 5426H ©2432 

STYPON 015776 54264 © 2432 


Mm 7 
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ee, P11 26-SEP-80 1S: 52 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0090 
‘STYPOS 015736 2426H 2432 
SUNIT 001204 1194@ 1356" 1361* 1364 1374 1380 1383 1386* 1864* 1865 2398 
SUNITM 001010 11934 
SUSWR 001216 11944 
SUTK 022022 1189 24398 
SVECT1 001242 11944 1297 1301 
SVECT2 001244 11944 
SXTSTR 015116 24188 
$$GET4= 000000 18774 
SOFILL 016161 24268* 
SGOCAT= eeteee 2418 2419 . 
= 022326 11854 11918 1192 11934 1194# 12528 1272 1877 2296 24178 2418 2419 24208 
2422 2427 24284 246308 246348 24358 243598 
-DVLS 001412 12524 8 1273* 1355* 2439* 
~SASTA= ttttee 2430 
.$x = 001000 11934 


ee ee ew ee ee -_——_- -_— = --—— -- -- _ - - -—_ - . - ee 
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CRLPBB.P11 
TYPNUM 8611778 
TYPOCS 11778 
TYPOCT 11778 
TYPTXT 11774 
SCAL 7484 
SDMAST 9148 
SDMDT 10484 
SMMAST 772a 
SSCMRE 11944 
SSCMIM 11948 
SSESCA 11774 
SSNEWT 11774 
1561 
1764 
$$SET 24328 
SSSETM 12728 
SSSKIP 11774 
1632 
1772 
.EQUAT 11574 
-HEADE 11578 
.KMADR 55a 
.KSIS 1844 
.LOADL 4594 
.LPAIN 2094 
.PUTCS 4188 
rESET 3294 
. SETUP 11584 
. SWRHI 11594 
.SWRLO 11838 
.UTK 6994 
~SACTI 11614 
.SAP1B 11614 
- SAPTH 11614 
.SAPTY 11614 
.SCATC 11574 
-SCMTA 11574 
. SEOP 11574 
-SERRO 11578 
. SERRT 11594 
.SINLP 6524 
. SMMAC 1414 
. SOUTL 6104 
.SPARM 11584 
. $RDOC 11604 
. SREAD 11584 
. SSAVE 11584 
.$SC 11584 
.SSPAC 11584 
.$S 11584 
.STLKW Sil” 
$TOUT 12524 
STRAP 11584 
STYPD 11594 
STYPE 11574 


AA11-K DIAGNOSTIC 
26-SEP-80 13:52 


2428 


1271 


2439 


CROSS REFERENCE TABLE -- 


je a 8 
MACY11 30G(1063) 24-0CT-80 09:31 PAGE 10-1 


MACRO 


NAMES 


SEQ 0092 


MAINDEC-11-CRLPB-B DIAGNOSTIC 
CRLPBB.P11 26-SEP-80 i: 2" 


—.STYPO) | 0611574 = 2426 


oe oe ee ee _—_ = 





_— — ——- se ewe 


. ABS. 022526 000 OVR RO ABS GBL 


000000 001 CON RY REL LCL 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


CRLPBB,C®LPBB/CRF=CRLPAB.MAC ,CRLPBB.P11 
RUN-TIME: 27 14 1 SECONDS 

RUN-TIME RATIO: 97/43=2.2 

CORE USED: 35K (69 PAGES) 


MACY11 30G6(1063) 


—O 


Cc 8 
24-OCT-80 09:31 


CROSS REFERENCE TABLE -- MACRO NAMES 


PAGE 10-2 


SEQ 0093 


DRLPX2( IMAGE) MICRO CODE 
CRLPK2.P11 02-NOV-79 11:22 


177777 


WN] CO DOONOVE wr — 


452 (00000" 
453 000000 


, 


0 8 
|:denauLt TITLE MACY11 306(1063) 24-OCT-80 09:35 PAGE 1 


;THIS FILE 1S THE SAME AS ‘’CRLPXO.P11°"' EXCEPT IT IS LOADED INTO 65900 
;1T 1S ALSO THE SAME AS ‘'DRLPX2.P11°° EXCEPT NAME CHANGE ‘'CRLPX2.P11°° 
, 
~LIST MC,BIN,BEX,MEB 
ADDRESS=-1 


MACRO DEFFINITIONS FOR M8200 AND M8204 MICROPROCESSOR 
INSTRUCTION SET 
TO BE USED WITH RSX MACRO=11 ASSEMBLER 


26-MAY=-1976 
$SBEGIN 

$L0C 42000 
.GLOBL DRLPX2 
~-ENABL GBL 


+t 
:*MICRO CODE FOR KMC-11 


SEQ 0094 


DRLPX2( IMAGE) MICRO CODE 


CRLPXK2.P11 


042000 


042014 


042016 
042016 


042056 
042040 


042044 


042046 
042046 


042050 


02-NOV-79 11:22 


100407 
100420 
100430 
100432 
100434 
1004 36 
100440 


000400 
061220 
061222 
061223 
061224 
061225 
061226 
061227 
063226 


021240 
000777 
061222 


021240 


DRLPX2: 


STARTU: 


CMNOP : 


LOOP: 


E 8 
;DEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:55 PAGE 2 


;*THIS CODE WILL BE DOWN LOADED INTO BOTH 
;*KMC-11'S. THE CODE RUNS ASYNCRONOUS TO THE PDP-11 CODE 


;*WE SYNC THROUGH COMMANDS PASSED VIA THE OUT*/IBUS* REGS. 
-* 


; JUMP TABLE USED FOR COMMANDS 
BR STARTU 


. WORD 
BR 
. WORD 


. WORD 
BR 
. WORD 
BR 
. WORD 
BR 
. WORD 
BR 
. WORD 


;GOTO START 


.$$$. 

CMNOP :NOP=1 

$$$. 

RDS ILO -=2 READ SILO PUT IN BSEL4 

WRSILO :=3 READ BSEL4 PUT IN SILO. 
RDCHND -=4 READ FAST PATH PUT IN BSEL4 
WRCAND -=5 READ BSEL4, PUi IN FAST PATH. 
SAMP -=6 TAKE AN A/D SAMPLE 

$$$. 


;START OF U CODED 


# 0,BREG 
BREG,OUT1 <0> 
$$$. 
BREG,OUT1 <2> 
$$$. 
BREG,OUT1 <35> 
$$$. 
BREG,OUT1 <4> 
$$$. 
BREG,OUT1 <5> 
$$$. 
BREG,OUT1 <6> 
$$$. 
BREG,OUT1 </7> 
BREG,SPAD <6> 
$$$. 


;CLEAR UNIBUS CSRS 


INPO <12>.0UT1 <O> :READ STATUS 
# 377,BREG 
BREG,OUTI <2>  : INDICATE READY FOR COMMAND. 


INPO <12>,0UT1 <0> ;READ STATUS 
. $$$. 


INP1 <2>,SPAD <0> ;READ COMMAND REG. 


SEQ 0095 


F 8 
DRLPX2( IMAGE) MICRO CODE DEFAULT TITLE MACY11 306(1063) 24-0CT-80 09:33 PAGE 2-1 


CRLPX2.P11 02-NOV-79 11:22 SEQ 0096 
(3) 042050 1235040 WORD .$$$. 
496 042052 BZ LOOP :NO COMMAND THEN LOOP 
‘e) 042052 101423 WORD . $$$. 
498 042054 MOVE INP1 <2>,SPAD <0> ;RE=READ COMMAND. 
‘2 042054 123040 WORD .$$$. 
500 042056 BR SPAD <0> ;BR BASED ON CMND. 
(2) 042056 160600 . WORD . $$$. 
501 sNO“USER PROTECTION OFFERED. 
502 >IF YOU ENTER WRONG CODE - 
502 YOU LOSE. * 
504 
505 : . 
506 sROUTINE TO READ THE SILO, PUT IN 
507 :*BUS REG 4 
a. , :CMD=2 
510 042060 RDSILO: MOVE INPO <10>,0UT1 <4> ;READ S!LO. 
(3) 042060 021204 WORD . $$$. 
$11 ;WRITE *BuS 
512 042062 BR CMNOP ;RETURN. 
ft 042062 100420 . WORD . $$$. 
514 : 
515 sROUTINE TO WRITE SILO, READ DATA FROM 
516 :*BUS REG 4 
517 >CMD=3 
3 : 
520 042064 WRSILO: MOVE INP1 <4>,0UTO <10> ;READ DATA IN *BUS 
(3) 042064 122110 . WORD . $$$. 
521 ;sWRITE SILO. 
522 042066 BR CMNOP 
(2) 042066 100420 . WORD .$$$. 
523 
$24 : 
525 sROUTINE TO READ FAST PATH (CMND) REG. 
526 ;PUT IN *BUS REG 4 
527 ;CMD=4 
359 
530 042070 RDCMND: MOVE INPO <11>,0UT1 <4> ;READ FAST PATH 
(3) 042070 021224 . WORD . $$$. 
531 ;WRITE *BuS. 
$32 042072 BR CMNOP ; RETURN 
(2) 042072 100420 . WORD . $$$. 
533 
534 ; 
535 sROUTINE TO WRITE FAST PATH (CMND) REG. 
536 > TAKE DATA FROM *BUS REG 4. 
537 ; = 
3 : 
540 042074 WRCMND: MOVE INP1 <4>,0UTO <11> ;READ DATA IN *BUS 
(3) 062074 122111 . WORD . $$$. 


G 8 
DRLPX2C IMAGE) MICRO CODE DEFAULT TITLE MACY11 306(1063) 24-OCT-80 09:33 PAGE 2-2 


CRLPX2.P11 O2-NOV-79 11:22 SEQ 0097 
541 :WRITE INTO FAST PATH. 
542 042076 SR CMNOP RETURN. 
(2) 042076 100420 WORD . $$$. 
543 
544 
545 : 
546 ; THIS ROUTINE TAKES AN A/D SAMPLE. 
547 ;CALL= CMND 6 IN BSEL2 
548 ; THESE REGS. MUST BE SET UP IN ADVANCE. 
549 :BSEL i MUST CONTAIN READ CODE FOR A/D BUFFER. 
550 -BSEL 4,5 MUST CONTAIN A/D CSR SETTING. 
551 ;BSEL 6 "MUST CONTAIN WRITE CODE FOR A/D CSR 
$52 sBSEL 7 MUST CONTAIN READ CODE FOR “hg CSR 
553 ; BSEL 3,6,7 WILL REMAIN UNEFFECTED 
554 ; BSEL 4,5 WILL CONTAIN A/D SAMPLE. 
g22 “BSEL2 WILL CONTAIN CODE 377 WHEN DONE. 
566 
567 042100 WITMC S AMP 
(4) 042100 020640 WORD .$$$. 
(3) 042102 103040 -WORD .$$$. 
568 042104 MOVE INP1 <6>,0UTO <11> ;SEND A/D WRITE CODE. 
(3) 042104 122151 . WORD . $$$. 
569 042106 WIMC SAMP 1 
(4) 042106 020640 » WORD . $$$. 
(3) 042110 103043 WORD . $$$. 
$70 042112 MOVE INP1 <4>,0UTO <11> ;SEND LOW BYTE CSR INFO. 
(3) 042112 122111 -WORD .$$$. 
571 042114 WIMC SAMP2 
(4) 042114 020640 » WORD $$$. 
(3) 042116 103046 » WORD . $$$. 
$72 042120 MOVE INP1 <5>,0uTO <11> :SEND HIGH BYTE CSR INFO. 
(3) 042120 1221351 -WORD .$$$. 3 
573 042122 WTMC SLOOP 
(4) 042122 020640 -WORD «$$$. 
(3) 042124 103051 -WORD .$$$. 
574 042126 MOVE INP1 <7>,0UTO <11> sSEND READ CODE TO GET A/D CSR. 
(3) 042126 122171 . WORD $$$. 
575 042130 WTMC SAMP 3 
(4) 042130 020640 . WORD .$$$. 
(3) 042132 103054 -WORD .$$$. 
576 042134 WTMM SLOOP 1 
(4) 042134 020640 -WORD .$$$. 
(4) 042136 061620 -WORD  .$$$. 
(3) 042140 103056 -WORD .$$$. 
577 042142 MOVE INPO <11>,BREG 
(3) 042142 020620 -WORD .$$$. 
578 042144 MOVE BREG,SPAD <0> 
(3) 042144 063220 . WORD $$$. 
579 042146 WTMM SLOOP2 
(4) 042146 020640 . WORD $$$. 
(4) 0642150 061620 -WORD .$$%. 
(3) 042152 103063 . WORD .$$$. 
580 042154 MOVE INPO <11>,BREG 
(3) 042154 020620 . WORD . $$$. 
581 042156 BB7 CMNOP :ABORT IF A/D BIT 1521 


DRLPX2( IMAGE) MICRO CODE 


CRLPX2.P11 


042156 


042212 


O2-NOV-79 11:22 


103420 
060600 
103473 
100451 
122071 
020640 
061620 
103074 
021224 
020640 
061620 
103100 
021225 
100420 


177777 
000001 


H § 
sDEFAULT TITLE MACY11 306(1063) 24-0CT-80 


LOPE: 


. $$$. 

SPAD <0>,BREG 
$$$. 

LOPE 

. $$$. 

SLOOP 

. $$$. 

INP] <3>,0UTO <11> 
$$$. 

§L00P3 

$$$. 

$$$. 

$$$. 

INPQ <11>,0UT1 <4> 
. $$$. 

SLOOP4 

$$$. 

$$$. 

$$$. 

— <11>,0UT1 <5S> 


09:33 PAGE 2-3 


IF A/D NOT DONE,EXIT. 
-ISSUE READ A/B BUFFER. 


I 8 
DRLPX2( IMAGE) MICRO CODE ;DEFAULT TITLE Na} bb 306(1063) 24-OCT-80 09:33 PAGE 3 


CRLPK2.P11 O2-NOV-79 11:22 SYMBOL SEQ 0099 
ADDRES= 177777 SAMP 042100 -ADDWC= 000020 ~DMEM = 002400 SELB = 000220 
CLK = 000020 SAMP1 =. 042106 -AND = 000260 .~DNOP = 000000 SIMM = 000000 
CMNOP 042040 SAMP2 = =©042114 .BB0 = 002000 .DOUTO= 002000 SINO = 020000 
DRLPX2 042000 G SAMPS = 042130 .BB1 = 002400 .DOUT1= 001000 SIN1 = 120000 
LOOP 042046 SLOOP 042122 .BB4 = 003000 -DSPAD= 003000 SMEM = 040000 
LOPE 042166 SLOOP1 0421534 .8B7 = 003400 .DSPBR= 003400 SUB = 000340 
MARHLD= 000000 SLOOP2 042146 .6C = 001000 00 = 000400 SUBWC= 000049 
MARINC= 014000 SLOOPS 042170 BR = 000400 FQ = 000020 SUB2C= 000360 
MARLD = 010000 SLOOP4 042200 ~BSBRG= 160000 INC = 000060 S = 020000 
/MARLDX= 004000 STARTU 042016 -BSIMM= 100000 ~LORN = 000240 xOR = 000320 
/PAGEO = 000000 WRCMND 042074 ~BSMEM= 140000 »MINUS= 000360 $$$. = 100420 
PAGE1 = 001000 WRSILO 042064 82 = 001400 MO = 004000 LOC = 042040 
/PAGE2 = 002000 SSSSER= 000001 CO = 000400 OR = 000300 2c = 000120 
| PAGE 3 = 003000 ‘ = 042214 DBR = 000400 -PLUS = 000000 2Awl = 000140 
RDCMND 042070 ADC = 000100 .DBRSH= 001400 SBREG= 060000 

RDSILO 042060 ADD = 000000 .DEC = 000160 ~SELA = 000200 

. ABS. 042214 000 OvR RW ABS LCL OD 
| 0000090 001 CON RW Ms itt f 

ABCODE 004000 002 CON RW mi. bs 3 

ERRORS DETECTED: 0 

DEFAULT GLOBALS GENERATED: 0 

CRLPX2,CRLPX2=CRLPX2 

RUN-TIME: 3 3 0 SECONDS 

RUN-TIME RATIO: 14/7=2.0 

CORE USED: 35K (69 PAGES) 


